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• FILENAME: MONITOR 




OOOOl 
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OOOOl 


























OOOOl 








i MACHINE 


CODE MONITOR FOR MOTOROLA 68000 




OOOOl 














OOOOl 








; Written 


by Rich Page June 7, 1982 




OOOOl 














OOOOl 
OOOOl 


























OOOOl 








; Register Allocation 




OOOOl 














OOOOl 








; A7 


stack pointer 




OOOOl 








; A6 


local pointer 




OOOOl 








AS 


global painter 




OOOOl 








A4 






OOOOl 








A3-A0 


scratch 




OOOOl 














OOOOl 








D7-D0 


scratch 




OOOOl 














OOOOl 
OOOOl 


























OOOOl 








Layout 


of lou memory 




OOOOl 














OOOOl 








From 


To Description 




OOOOl 














OOOOl 








0000 


OOFF Exception Vectors 




OOOOl 








0100 


0147 Memory Configuration Map 




OOOOl 








0200 


03FF Free space for user asm lang globals 




OOOOl 








0400 


07FF Macsbug globals 




OOOOl 








0800 


09FF Mapped to FAOQOO for DRIVERS. OBJ 




OOOOl 








OAOO 


OBFF Free 




OOOOl 








OCxx 


OCFF System Globals 




OOOOl 








ODOO 


OOxx Syscom, misc info 




OOOOl 








OEOO 


OEFF Strbuf 




OOOOl 








OFOO 


OFFF Save Area for Zero Page 




OOOOl 








1000 


17FF Data Area for DRIVERS. OBJ 




OOOOl 








1800 


2FFF User Jump Table 




OOOOl 








3000 


Heap Bottom 




OOOOl 














OOOOl 
OOOOl 


























OOOOl 








Memory 


Configuration Map 




OOOOl 














OOOOl 








$100 


Ptr to Monitor Bottom (also base of the unit 


table) 


OOOOl 








$104 


Ptr to Monitor Top 




OOOOl 








$108 


unused for now 




OOOOl 








$10C 


Ptr to Bottom of Code Stack 




OOOOl 








$110 


Screen Bsss 




OOOOl 








$114 


Memory Top 




OOOOl 








$118 


Port to the Apple 




OOOOl 








$11C 


UART for Macsbug 




OOOOl 








$120 


Ptr to Macsbug Jump Table 
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OOOOl 






; $124 


Ptr to GOTOXY routine 




OOOOl 








$128 


Ptr to SOROC driver 




OOOOl 








$12C 


Ptr to Default Soft Break Point Table 




OOOOl 








$130 


Ptr to UART driver 




OOOOl 








$134 


Ptr to built in parallel port 




OOOOl 








«138 


Start of the heap, 




OOOOl 








«13C 


Start of th« stack 




OOOOl 








$140 


Ptr to ustsr* last AS 




OOOOl 








$144 


Ptr to MEMOWs fie. device #4: ) 




OOOOl 








$148 


Ptr to Twiggy Driver 




OOOOl 








$14C 


RECORD MACHINE, FREE2,FREE3,FREE4: BYTE END 




OOOOl 








$150 


Ptr to debug card 




OOOOl 








$154 


Ptr to loader for in-trinsic units 




OOOOl 








$158 


Ptr to four port card „ 




OOOOl 








$15C 


Ptr to external file system 




OOOOl 














OOOOl 








Def init 


ion of $14C 




OOOOl 














OOOOl 








MACHINE 


0=LISA, 1=LITTLE 




OOOOl 














OOOOl 
OOOOl 
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OOOOl 






.PROC 


MONITOR, 




OOOOl 














OOOOl 








misc equates 






OOOOl 














OOOOl 


0000 


0000 


NIL EQU 


; matches Feb 1981 compiler ( 


and beyond ) 


OOOOl 














OOOOl 








iorsit uiord e 


quates 




OOOOl 














OOOOl 


0000 


0000 


INOERR EQU 







OOOOl 


0000 


0001 


IBADBLK EQU 


1 




OOOOl 


0000 


0002 


IBADUNT EQU 


2 




OOOOl 


0000 


0003 


IBADMOD EQU 


3 




OOOOl 0000 0004 


ITIMOUT EQU 


4 
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OOOOl 


0000 


000 s 


ILSTUNT EQU 


5 


OOOOi 


0000 


0006 


ILSTFIL EQU 


6 


OOOOl 


0000 


0007 


IBADTTL EQU 


7 


OOOOl 


0000 


0008 


INOROOM EQU 


8 


OOOOl 


0000 


0009 


I NOUN IT EQU 


9 


OOOOl 


0000 


OOOA 


INOFILE EQU 


10 


OOOOl 


0000 


OOOB 


IDUPFIL EQU 


11 


OOOOl 


0000 


OOOC 


INOTCLS EQU 


12 


OOOOl 


0000 


OOOD 


INOTOPN EQU 


13 


OOOOl 


0000 


OOOE 


IBADFMT EQU 


14 


OOOOl 


0000 


OOOF 


I STROVE EQU 


15 


OOOOl 






; 




OOOOl 






; SLjscom deF 


in i t ion 


OOOOl 






; 




OOOOl 


0000 


0000 


lORSLT EQU 





OOOOl 


0000 


0001 


SYSUNT EQU 


IORSLT+1 


OOOOl 


0000 


0002 


HI TIME EQU 


SYSUNT+1 


OOOOl 


0000 


0004 


LOT! ME EQU 


HITIME+2 


OOOOl 


0000 


0006 


MSCNFO EQU 


LOTIME+2 


OOOOl 


0000 


0008 


CRTTYP EQU 


MSCNFO+2 


OOOOl 


0000 


OOOA 


CRTESC EQU 


CRTTYP+2 


OOOOl 


0000 


0011 


FILCNT EQU 


CRTESC+7 


OOOOl 


0000 


0012 


CLRSCRN EQU 


FILCNT+1 


OOOOl 


0000 


0013 


CLRLINE EQU 


CLRSCRN+1 


OOOOl 


0000 


0016 


CRTINFO EQU 


CLRLINE +3 


OOOOl 


0000 


OOIE 


FLUSH EQU 


CRTINFO+8 


OOOOl 


0000 


OOIF 


EOF EQU 


FLUSH* 1 


OOOOl 


0000 


0020 


SSTOP EQU 


EOF+1 


OOOOl 


0000 


0021 


BREAK EQU 


SSTOP* 1 


OOOOl 


0000 


0022 


BADCHR EQU 


BREAK* 1 


OOOOl 


0000 


0023 


CHRDEL EQU 


BADCHR* 1 


OOOOl 


0000 


0024 


ALTMOD EQU 


CHRDEL* 1 


OOOOl 


0000 


0025 


LINDEL EQU 


ALTMOD *1 


OOOOl 


0000 


0026 


ETX EQU 


LINDEL*1 


OOOOl 


0000 


0027 


PREFIX EQU 


ETX*1 


OOOOl 


0000 


0028 


ALPHLCK EQU 


PREFIX* 1 


OOOOl 


0000 


002C 


SYSCMSZ EQU 


ALPHLCK* 4 


OOOOl 






J 




OOOOl 






; filekind equates 


OOOOl 






; 




OOOOl 


0000 


0000 


UNTYPFL EQU 
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OOOOl 


0000 


0001 


XDSKFILE EQU 


1 


OOOOl 


0000 


0002 


CODEFILE EQU 


2 


OOOOl 


0000 


0003 


TEXTFILE EQU 


3 


OOOOl 


0000 


0004 


INFOFILE EQU 


4 


OOOOl 


0000 


0005 


DATAFILE EQU 


5 


OOOOl 


0000 


0006 


GRAFFILE EQU 


6 


OOOOl 


0000 


0007 


FOTOFILE EQU 


7 


OOOOl 


0000 


0008 


SECURDIR EQU 


8 


OOOOl 






; 




OOOOl 






; directory e 


quates 


OOOOl 






; 




OOOOl 


0000 


004D 


MAXDIR EQU 


77 


OOOOl 


0000 


0312 


MAXDIRB EQU 


786 


OOOOl 


0000 


0200 


FBLKSIZ EQU 


512 


OOOOl 


0000 


0800 


DIRSZ EQU 


4*FBLKSIZ 


OOOOl 


0000 


0002 


DIRDISK EQU 


2 


OOOOl 






; 




OOOOl 






; directory entry equates 


OOOOl 






; 




OOOOl 


0000 


0000 


FSTBLK EQU 





OOOOl 


0000 


0002 


LSTBLK EQU 


2 


OOOOl 


0000 


0004 


FKIND EQU 


4 


OOOOl 






; case Fk ind 


= securdir or unt 


OOOOl 


0000 


0006 


DVID EQU 


6 


OOOOl 


0000 


OOOE 


DEOVBLK EQU 


14 


OOOOl 


0000 


0010 


DNUMFLS EQU 


16 


OOOOl 


0000 


0012 


DLOADTM EQU 


18 


OOOOl 


0000 


0014 


DLASTBT EQU 


20 


OOOOl 






; case Fk ind 


= normal Files 


OOOOl 


0000 


0006 


DTID EQU 


6 


OOOOl 


0000 


0016 


LSTBYTE EQU 


22 


OOOOl 


0000 


0018 


DACCESS EQU 


24 


OOOOl 


0000 


OOIA 


DELENG EQU 


26 


OOOOl 






; 




OOOOl 






; close types 




OOOOl 






; 




OOOOl 


0000 


0000 


CNORMAL EQU 





OOOOl 


0000 


0001 


CLOCK EQU 


1 


OOOOl 


0000 


0002 


CPURGE EQU 


2 


OOOOl 


0000 


0003 


CCRUNCH EQU 


3 


OOOOl 






; 




OOOOl 






; FIB -- file 


bufFer equates 


OOOOl 






; 




OOOOl 


0000 


0000 


FWINDOW EQU 





OOOOl 


0000 


0004 


FEOLN EQU 


FWINDOW+4 


OOOOl 


0000 


0005 


FEOF EQU 


FEOLN* 1 


OOOOl 


0000 


0006 


FSTATE EQU 


FEOF+1 


OOOOl 


0000 


0008 


FRECSZ EQU 


FSTATE+2 


OOOOl 


0000 


OOOA 


FISOPEN EQU 


FRECSZ+2 


OOOOl 


0000 


OOOB 


FISBLKD EQU 


FISOPEN+1 


OOOOl 


0000 


OOOC 


FUNIT EQU 


FISBLKD+1 


OOOOl 


0000 


OOOE 


FMACHIN EQU 


FUNIT*2 



max number oF entries in 4 blocks 
max number oF entries in 40 blocks 

length oF dir 

block address oF directory 



dir entry For DFIRSTBLK 
dir entry For DLSTBLK 
dir entry For File kind, status 
dFile 
dir entry For title Field 
dir entry For end oF volume Field 
dir entry For number Files 

most recent date setting 

dir entry For title Field 

dir entry For lastbyte 

dir entry For date 

length in bytes oF dir entry 
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OOOOi 


0000 


0016 


OOOOl 


0000 


0018 


OOOOl 


0000 


OOIA 


PAGE 


4 


MONITOR 


OOOOl 


0000 


OOIC 


OOOOl 


0000 


OOIE 


OOOOl 


0000 


0038 


OOOOl 


0000 


003A 


OOOOl 


0000 


003C 


OOOOl 


0000 


003E 


OOOOl 


0000 


0040 


OOOOl 


0000 


0050 


OOOOl 


0000 


0050 


OOOOl 


0000 


0250 


OOOOl 






OOOOl 






OOOOl 






OOOOl 


0000 


0008 


OOOOl 






OOOOl 






OOOOl 






OOOOl 


0000 


0001 


OOOOl 


0000 


0002 


OOOOl 






OOOOl 






OOOOl 






OOOOl 


0000 


0014 


OOOOl 


0000 


0000 


OOOOl 


0000 


0008 


OOOOl 


0000 


0009 


OOOOl 


0000 


OOOA 


OOOOl 


0000 


oooc 


OOOOl 


0000 


OOFC 


OOOOl 






OOOOl 






OOOOl 






OOOOl 


0000 


0000 


OOOOl 


0000 


0001 


OOOOl 


0000 


0002 


OOOOl 


0000 


0003 


OOOOl 


0000 


0004 


OOOOl 


0000 


0005 


OOOOl 


0000 


0006 


OOOOl 


0000 


0007 


OOOOl 






OOOOl 






OOOOl 






OOOOl 


0000 


0001 


OOOOl 


0000 


0002 


OOOOl 


0000 


0004 


OOOOl 


0000 


0008 


OOOOl 


0000 


OOOF 


OOOOl 






OOOOl 






OOOOl 






OOOOl 






OOOOl 






OOOOl 






OOOOl 
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OOOOl 






OOOOl 






OOOOl 






OOOOl 






OOOOl 






OOOOl 






OOOOl 






OOOOl 






OOOOl 






OOOOl 


0000 


0007 


OOOOl 


0000 


0000 


OOOOl 


0000 


0010 


OOOOl 


0000 


0014 


OOOOl 


0000 


0018 


OOOOl 


0000 


OOIC 


OOOOl 


0000 


0020 


OOOOl 


0000 


0005 


OOOOl 


0000 


0100 


OOOOl 






OOOOl 






OOOOl 






OOOOl 


0000 


0004 


OOOOl 


0000 


0020 


OOOOl 






OOOOl 






OOOOl 






OOOOl 


0000 


0000 


OOOOl 


0000 


0008 


OOOOl 


0000 


00A8 


OOOOl 


0000 


0498 


OOOOl 






OOOOl 







FMAXBLK EQU 

FNXTBLK EQU 

FREPCNT EQU 

FILE: MONITOR. TEXT 



FMODIFD EQU 
FHEADER EQU 
FSOFTBF EQU 
FMAXBYT EQU 
FNXTBYT EQU 
FBFCHNG EQU 
FDEVVID EQU 
FBUFFER EQU 
FIBSZ EQU 
FIBSIZE EQU 



FMACHIN*8 
FMAXBLK+2 
FNXTBLK+2 



FREPCNT +2 

FMODIFD+2 

FHEADER ^DELENG 

FSOFTBF+2 

FMAXBYT+2 

FNXTBYT+2 

FBFCHNG +2 

FDEVVID+16 

FBUFFER 

FBUFFER+FBLKSIZ 



system file table 
FTBLSZ EQU 9*24 



size of system filenames table In bytes 



; unit equates 


CONSOLE EQU 
SYSTERM EQU 


1 
2 


; UTBL entry 


equates 


MAXU EQU 
UVID EQU 
FREEBYT EQU 
UISBLKD EQU 
UEOVBLK EQU 
UTBLSIZ EQU 
UTABLSZ EQU 


20 



UVID+8 

FREEBYT+1 

UISBLKD+1 

UEOVBLK +2 

<MAXU+1>*UTBLSIZ 


; prefix equates 



; was logged before dev/vol logic luas written 



P_RLF . EQU 
P NDFS .EQU 
P~ERSEL .EQU 
P_ERSES .EQU 
P HOME .EQU 
P~BCKSP .EQU 
P_CLRSC .EQU 
P CLRLN .EQU 



unittable equates 



INBIT EQU 

OUTBIT EQU 

CLRBIT EQU 

BSYBIT EQU 

ALLBIT EQU 

dev ices 



1 
2 

4 
8 
INBIT+OUTBIT+CLRBIT+BSYBIT 



working device 

1 Twiggy 1 

2 Twiggy 2 

3 Built in parallel port 
FrLE: MONITOR. TEXT 



4 Four port card port 

5 Four port card port 1 

6 Four port card port 2 

7 Four port card port 3 (Marksman only) 



device table equates 

NOTE: the device table must be a power of 2 bytes per entry 



MAXDEV EQU 


7 


DEVNAME EQU 





DEVBASE EQU 


DEVNAME+16 


DEVMTBL EQU 


DEVBASE+4 


DEVJTBL EQU 


DEVMTBL +4 


DEVGLBS EQU 


DEVJTBL+4 


DNTRYSZ EQU 


DEVGLBS +4 


DEVNSHF EQU 


5 ; shift count = DNTRYSZ 


DTBLSIZ EQU 


DNTRYSZ *<MAXDEV+1> 


i LOGN table 


of logged in units 


LOGENSZ EQU 


4 


LOGNSZ EQU 


LOGENSZ *<MAXDEV+ 1 > 


; UT17 table 


of volume names for devices 1 .. MAXDEV 


UT17VID EQU 





UT17VSZ EQU 


UT17VID+8 


UT17TSZ EQU 


UT17VSZ*<MAXU+1> 


UT17SIZ EQU 


UT17TSZ*<MAXDEV> 



; mount table equates 
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OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
PAGE 



0000 0054 
0000 024C 



0000 01B3 



0000 0000 
0000 0004 
0000 0002 
0000 0006 



0000 0000 
0000 0008 
0000 0008 
0000 0000 
0000 0010 
0000 0018 

6 MONITOR 



MTBLSIZ EQU 
MTBLSZ5 EQU 



4*<MAXU*1> 
MTBLSIZ*7 



boot device set by CPU rom at boot 
BOOTDVC EQU $1B3 

PIA REGISTERS are offsets from $3FF41 (or its equivalent) 



INDATA EQU 
INCSR EQU 
OUTDATA EQU 
OUTCSR EQU 



$0 
$4 
$2 
$6 



ORB 

ORA 

IRA 

IRB 

DORB 

DORA 



PIA REGISTERS for corvus/p ipp in disk interface 

output regs 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 





8 

ORA 

ORB 

$10 

$18 



input regs 

data direction regs 
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OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
PAGE 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0058 
0060 
0068 
0070 
0078 
0004 
0200 
0005 
OOFF 
0009 



FFFF FFFC 
FFFF FFFD 
FFFF FFFE 
FFFF FFFF 



FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 



FFFA 
FFFB 
FFFC 
FFFD 
FFFE 
FFFF 



0000 0800 



0000 1800 
0000 3000 



ACR 
PCR 
IFR 
lER 

NHS 



EQU 
EQU 
EQU 
EQU 
EQU 



CMDSIZE EQU 
DSKBLK EQU 
PCMNDSZ EQU 
BLKSIZE EQU 
HDRSIZE EQU 



$58 

$60 

$68 

$70 

$78 

4 

512 

5 

255 

9 



auK control 

peripheral control 

int flags 

int enable 

reg A no hand shake 

number of bytes in cmd str ing 

number of bytes in a block 

bytes-1 in pippin cmd string 

ujords-1 in pippin block 

uords-1 in pippin header 



OFFSET EQUS for dskread and dskwrt rout ines 



lOCMD EQU 

lODRV EQU 

BLOCKL EQU 

BLOCKH EQU 



-4 
-3 
-2 

-1 



OFFSET EQUS for pippin read and write routines 



PCMND EQU 

BLKH EQU 

BLKM EQU 

BLKL EQU 

RETRY EQU 

THRESH EQU 



-6 
-5 
-4 
-3 
-2 
-1 



globals for the MONITOR 

INBUFSZ EQU $800 

; INBUFF EQU $1000 

UJMPTBL EQU $1800 

UJMPTOP EQU $3000 

MACROS FOR ACCESS TO SYSTEM GLOBALS 

see MONGLBLS. TEXT complete declarations 



7 MONITOR 



SYSCOM: rSYSCOMREC; 
EMPTYHEAP: T INTEGER; 
HEAPTOP: tINTEGER; 
ZFIRST-. TINTEGER; 
INPUTFIB: FIBP; 
OUTPUTFIB: FIBP; 
SYSTERM: FIBP; 
SWAPFIB: FIBP; 
CODEFIB: FIBP; 
SYVID: PVID; 
FREE4A: TINTEGER; 
DKVID: PVID; 
FREE4B: TINTEGER; 
THEDATE: DATEREC; 
FILLER: STRING[FILLRLN ]; 
UTABLE: TUNITABL; 
FILETBLP: TFILETABLE; 
FILE: MONITOR. TEXT 



♦POINTER TO SYSTEM COMM AREA*) 
♦POINTER TO EMPTY HEAP TOP*) 
♦POINTER TO CURRENT HEAP TOP*) 
♦POINTER TO LOADER AINLOADER*) 
'*FILES*) 



*SYSUNIT VOLID*) 
'*USED BY MS*) 
♦DEFAULT VOLID*) 
♦USED BY MS*) 

•TODAY... SET IN FILER OR SIGN 0N«) 
*NULLS FOR CARRIAGE DELAY*) 
*POINTER TO UNIT TABLE FOR VOLUMES* 
*POINTER TO TABLE SYSTEM FILENAMES* 



OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 



STACKPTR: TINTEGER; 
INBUFFP: TINTEGER; 
STRBUF: TSTRING[255]; 
DBUGFLAG: BOOLEAN; 
RUNUSER: BOOLEAN; 
USERFIB: FIBP; 



ERRP 
UJPT 
UREG 
DREG 



TINTEGER 
TINTEGER 
TINTEGER 
TINTEGER 



MACRO PUTSYSC 



♦POINTER TO STACK BASE*) 
♦POINTER TO USER CODE BUFFER ♦) 
♦POINTER TO ASM LANG STRING BUFFER*) 
♦XEQUTE UNDER DEBUG FLAG*) 
♦USER/SYM DEBUGGER STATUS FLAG*) 
♦POINTER TO USER OBJ FILE BUFFER*) 
*POINTER SYM DEBUGGER ERROR HANDLER*) 
*POINTER USERS JUMP TABLE*) 
♦POINTER REG SAVE AREA FOR USER*) 
♦POINTER REG SAVE AREA FOR DEBUGGER*) 

put into pointer to system comm area 
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OOOOl 


MOVE.L 


%1,-4(A5) 


"^ 


OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


GETSYSC 


; get from pointer to system comm area 


OOOOl 


MOVE. L 


-4(A5), %1 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


PUTEMTH 


; put into empty heap pointer 


OOOOl 


MOVE. L 


%1, -8(A5) 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


GETEMTH 


; get from empty heap pointer 


OOOOl 


MOVE. L 


-8(A5),%1 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


ADDRNP 


; Spo inter to heap top 


OOOOl 


LEA 


-12(A5), %1 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


PUTNP 


; put into pointer to heap top 


OOOOl 


MOVE.L 


%1, -12(A5) 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


GETNP 


; get from pointer to heap top 


OOOOl 


MOVE. L 


-12(A5),%1 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


PUTZFST 


; put into load/unload pointer 


OOOOl 


MOVE.L 


%1,-16(A5) 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


GETZFST 


; get from load/unload pointer 


OOOOl 


MOVE. L 


-16(A5), %1 




OOOOl 


. . ENDM 






OOOOl 








OOOOl 


. MACRO 


put: FIB 


; put into input fib pointer 


OOOOl 


MOVE.L 


%1,-20(A5) 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


GETIFIB 


; get from input fib pointer 


OOOOl 


MOVE. L 


-20(A5),%1 




OOOOl 


.ENDM 


, 




OOOOl 
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OOOOl 


. MACRO 


PUTOFIB 


; put into uutput fib painter 


OOOOl 


MOVE. L 


%1,-24(A5) 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


GETOFIB 


; get from output fib pointer 


OOOOl 


MOVE. L 


-24(A5),%1 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


PUTTFIB 


; put into systerm fib pointer 


OOOOl 


MOVE. L 


%1,-28(A5) 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


GETTFIB 


; get from systerm fib pointer 


OOOOl 


MOVE. L 


-28(A5), %1 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


PUTSFIB 


; put into suap fib pointer 


OOOOl 


MOVE. L 


%1, -32(A5 ) 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


GETSFIB 


; get from swap fib pointer 


OOOOl 


MOVE. L 


-32(A5),%1 




OOOOl 


. ENDM 






OOOOl 








OOOOl 


. MACRO 


PUTCFIB 


; put into code fib pointer 


OOOOl 


MOVE. L 


%1,-36(A5) 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


GETCFIB 


; get from code fib painter 


OOOOl 


MOVE. L 


-36(A5),%1 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


-40 USED BY MS. OBJ FOR 


CRT INFO 


OOOOl 








OOOOl 


. MACRO 


GETSYV 


; get painter to sysunit volid 


OOOOl 


MOVE. L 


-44(A5),%1 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


PUTSYV 


; put painter to sysunit volid 


OOOOl 


MOVE. L 


%1, -44(A5) 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


-48 USED BY MS. OBJ FOR 


UPPER/LOWER TOGGLE, 3 BYTES FREE 


OOOOl 








OOOOl 


. MACRO 


GETDKV 


; get pointer to default volid 


OOOOl 


MOVE. L 


-52(A5), %1 




OOOOl 


.ENDM 






OOOOl 








OOOOl 


. MACRO 


PUTDKV 


; put pointer to default volid 


OOOOl 


MOVE. L 


%1, -52(A5) 
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OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
PAGE - 9 MONITOR 



OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
PAGE - 31 MONITOR 



OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 



ENDM 



,ENDM 
FILE: MONITOR. TEXT 



. MACRO 

LEA 

.ENDM 



. MACRO ADDRTHD 
LEA -54(A5), %1 



. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE.B 
.ENDM 

. MACRO 
MOVE. B 
.ENDM 



...MACRO 
TST.B 
FILE: MONITOR. TEXT 



.ENDM 



. MACRO 
MOVE. B 
.ENDM 

. MACRO 
MOVE. B 
.ENDM 

. MACRO 

TST.B 

.ENDM 

. MACRO 
MOVE. L 
-ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 

. MACRO 
MOVE. L 
.ENDM 



ADDRFLR 
-66(A5), %1 

PUTUTBL 
%1,-70(A5) 

GETUTBL 
-70(A5),%1 

PUTSTBL 
%1, -74(A5) 

GETSTBL 
-74(AS), %1 

PUTSPTR 
%1,-78(A5) 

GETSPTR 
-78(A5), %1 

PUTIBF 
%1, -82(A5) 

GETIBF 
-82(A5), %1 

PUTSTRB 
%1,-86(A5) 

GETSTRB 
-86(A5),%1 

DBUGSET 
»1, -87(A5) 

DBUGCLR 
»0, -87(A5) 

DBUGTST 
-87(A5) 



RUNUSET 
#1, -88(A5) 

RUNUCLR 
»0, -88(A5 ) 



RUNUTST 
-88f A51 



PUTUFIB 
%1, -92(A5) 

GETUFIB 
-92(A5), %1 

PUTERRP 
%1, -96(A5) 

GETERRP 
-96(A5),%1 



; pointer to THEDATE word 



; pointer to FILLER string 
; put into unit table pointer 
J get from unit table pointer 
; put into sys Fnames table pointer 
; get from sys fnames table pointer 
i put into stack pointer base 
I get from stack pointer base 
i put into inbuff pointer 
get from inbuff pointer 
put into string buffer pointer 
get from string buffer pointer 
set debug flag 
clear debug flag 
test debug flag 

set runuser flag 

clear runuser flag 

test runuser flag 

put into pointer to user obj fib 

get from pointer to user obj fib 

put into pointer to error proc 

get from pointer to error proc 
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TPRcMONll, 


OOOOl 


. MACRO 


PUTUJPT 


OOOOl 


MOVE. L 


XI, -100(A5) 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


GETUJPT 


OOOOl 


MOVE.L 


-100(A5),%1 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


PUTUREG 


OOOOl 


MOVE. L 


%1, -104(A5) 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


GETUREG 


OOOOl 


MOVE. L 


-104(A5),%1 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


PUTDREG 


OOOOl 


MOVE. L 


%1,-108{A5) 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


GETDREG 


OOOOl 


MOVE. L 


-108(A5),%1 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


PUTUFST 


PAGE - 11 MONITOR FILE: MONITOR. TEXT 




OOOOl 


MOVE. L 


%1, -112(A5) 


OOOOl 


• ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


GETUFST 


OOOOl 


MOVE.L 


-112(A5),%1 


OOOOl 


. ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


PUTACCA 


OOOOl 


MOVE. L 


%1,-116(A5) 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


GETACCA 


OOOOl 


MOVE. L 


-116{A5),%1 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


PUTDTBL 


OOOOl 


MOVE. L 


%1,-120(A5) 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


GETDTBL 


OOOOl 


MOVE. L 


-120(A5),%1 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


PUTEBST 


OOOOl 


MOVE. B 


%1,-121(A5) 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


GETEBST 


OOOOl 


MOVE. B 


-121(A5),%1 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


PUTNXCH 


OOOOl 


MOVE. B 


%1, -122(A5) 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


GETNXCH 


OOOOl 


MOVE. B 


-122(A5),%1 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


PUTXFIB 


OOOOl 


MOVE. L 


%1,-126(A5) 


OOOOl 


.ENDM 




OOOOl 


J 




OOOOl 


. MACRO 


GETXFIB 


OOOOl 


MOVE.L 


-126(A5),%1 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


PUTDTOW 


OOOOl 


MOVE. W 


%1, -128(A5) 


OOOOl 


.ENDM 




OOOOl 


J 




OOOOl 


. MACRO 


DECDTOW 


OOOOl 


SUB.W 


»1, -128(A5) 


OOOOl 


.ENDM 




OOOOl 


; 




PAGE - 12 MONITSR FILE: MONITOR. TEXT 




OOOOl 


. MACRO 


ADDRSAT 


OOOOl 


LEA 


-132(A5 ),%! 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


ADDRSAB 


OOOOl 


LEA 


-156(A5),%1 


OOOOl 


.ENDM 




OOOOl 


; 




OOOOl 


. MACRO 


PUTLOGN 


OOOOl 


MOVE. L 


%1,-160(A5) 



; put into pointer to user JT 

; get from pointer to user JT 

; put into pointer to user regs 

; get from pointer to user pegs 

; put into pointer to sym debug regs 

; get from pointer to sym debug regs 

; put into user load/unload ptr 

J get from user load/unload ptr 

; put into access record ptr 

; get from access record ptr 

; put into device table ptr 

; get from device table ptr 

; put into ebstop 

; get from ebstop 

; put into next exec char 

; get from next exec char 

; put into execfile fib 

; get from execfile fib 

; put into disk timeout word 

; deer the disk timeout word 

; ptr reg save area top ( A3-A4A)4-D7 ) 
; ptr reg save area bottom ( A3-A4/D4-D7 ) 
; put into LOGN ptr 
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TPR:MONH.TEXT 



Pag« 008 



OOOOl 














.ENDM 






OOOOl 












; 








OOOOl 














. MACRO 


GETLOGN 


; get from LOGN ptr 


OOOOl 














MOVE. L 


-160(A5),%1 




OOOOl 














.ENDM 






OOOOl 












; 








OOOOl 














. MACRO 


PUTUT17 


; put into UT17 ptr 


OOOOl 














MOVE. L 


%1, -164(A5) 




OOOOl 














• ENDM 






OOOOl 












; 








OOOOl 














. MACRO 


GETUT17 


; get from UT17 ptr 


OOOOl 














MOVE. L 


-164(A5),%1 




OOOOl 














• ENDM 






OOOOl 












; 








OOOOl 














. MACRO 


PUTPRNT 


; put ptr to printer driver 


OOOOl 














MOVE. L 


%1,-168(A5) 




OOOOl 














.ENDM 






OOOOl 












; 








OOOOl 














. MACRO 


GETPRNT 


; get ptr to printer driver 


OOOOl 














MOVE. L 


-168(A5),%1 




OOOOl 














.ENDM 






OOOOl 












; 








OOOOl 














. MACRO 


PUTPRBA 


; put ptr to printer driver 


OOOOl 














MOVE. L 


%1, -172(A5) 




OOOOl 














.ENDM 






OOOOl 












; 








OOOOl 














. MACRO 


GETPRBA 


; get ptr to printer driver 


OOOOl 














MOVE. L 


-172(A5),%1 




OOOOl 














.ENDM 






OOOOl 




















OOOOl 












; Macro TrapT 


o is used to call 


the hardware interface routines. 


OOOOl 












; ^ Parameter %1 is the magic number associated with the routine beqin c 


OOOOl 




















OOOOl 














.MACRO 


TRAPTO 




trap to hardware interface 


OOOOl 










. 




MOVE. L 


D7, -(SP) 




save register 


OOOOl 














MOVE. W 


«%1,D7 




rout ine number 


OOOOl 














TRAP 


#5 




trap 


OOOOl 














MOVE.L 


(SP)+,D7 




restore register 


OOOOl 














.ENDM 






OOOOl 




















OOOOl 














SCOO th 


ru $C07 used by lU Trap Handler 


OOOOl 




















OOOOl 












start 


of monitor 




OOOOl 




















OOOOl 














RORG 







PAGE 


- 13 


MONITOR 


FILE:M 


DNITOR. 


rEXT 






OOOOl 




















OOOOl 














. INCLUDE MONBEGN. TEXT 




OOOOl 




















OOOOl 














FILENAME MONBEGN 




OOOOl 




















OOOOl 




















OOOOl 


6000 


**** 






1 


-lONBASE 


BRA 


INITIAL 




00041 




















00041 












intial values 


for syscom 




00041 




















00041 


00 










rOPSYSC 


.BYTE 





lORSLT 


00051 


05 












.BYTE 


5 


SYSUNT 


00061 


0000 












.WORD 





HITIME 


00081 


0000 












. WORD 





LOT I ME 


OOOAl 


GOOD 








( 


DFSMISC 


.WORD 


$0000 


MSCNFO 


OOOCI 


0003 












.WORD 


$0003 


CRTTYP 


OOOEl 


lElB 


5459 










.WORD 


$1E1B, $5459 


CRTESC 


00121 


OBOC 


D008 










.WORD 


$0B0C, $0008 




00161 


2A00 


D04C 










.WORD 


$2A00, $004C 


CLRLINE & CLRSCRN 


001 A| 


0018 


0O5O 










.WORD 


$0018, $0050 


CRT INFO 


001 El 


OAOB 


OC08 










.WORD 


$0A0B, $0C08 




00221 


0603 












.WORD 


$0603 


EOF & FLUSH 


00241 


1300 












.WORD 


$1300 


BREAK 8. SSTOP 


00261 


3F08 












.WORD 


$3F08 


CHRDEL & BADCHR 


00281 


1B7F 












.WORD 


$1B7F 


LINDEL & ALTMOD 


002AI 


0300 












.WORD 


$0300 


PREFIX & ETX 


002CI 


0800 












.WORD 


$0800 


BKSPACE 


002EI 


0000 












.WORD 







00301 


0000 








E 


30TSYSC 


.WORD 







00321 




















00321 












initial values for unit table 




00321 




















00321 


00 








• 


rOPUTBL 


.BYTE 





unit «0 


00331 


20 20 


20 20 


20 


20 


20 




.ASCII 


' 




003AI 


00 00 












.BYTE 


0,0 




003CI 


0000 












.WORD 







003EI 


07 












.BYTE 


7 


unit «1 


003FI 


43 4F 


4E 53 


4F 


4C 


45 




.ASCII 


•CONSOLE' 




00461 


01 00 












-BYTE 


1,0 




00481 


0000 












.WORD 







004AI 


07 












.BYTE 


7 


unit «2 


004BI 


53 59 


53 54 


45 


52 


4D 




.ASCII 


•SYSTERM' 




00521 


01 00 












.BYTE 


1,0 




00541 


0000 












.WORD 







00561 


00 












.BYTE 


; 


unit »3 


00571 


20 20 


20 20 


20 


20 


20 




.ASCII 


' ' 




005EI 


00 00 












.BYTE 


0,0 




00601 


0000 












.WORD 







w™ ™-— 





















1 
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Page 009 



' 














00621 


00 






.BYTE 





; unit #4 


00631 


20 20 


20 


20 20 20 20 


.ASCII 


' 




006AI 


00 01 






.BYTE 


0,1 




006CI 


0000 






.WORD 







OOBEl 


00 






.BYTE 





; unit »5 


006n 


20 20 


20 


20 20 20 20 


.ASCII 


' • 




00761 


00 01 






.BYTE 


0,1 




PAGE 


- 14 


MONITOR FILE: 


MONBEGN. TEXT 






00781 


0000 






.WORD 







007AI 


07 






.BYTE 


7 


; unit »6 


007BI 


50 52 


49 


4E 54 45 52 


.ASCII 


"PRINTER* 


- 


00821 


00 00 






.BYTE 


0,0 




00841 


0000 






.WORD 







00861 


00 






.BYTE 





i unit «7 


00871 


20 20 


20 


20 20 20 20 


.ASCII 


' 




008EI 


00 00 






.BYTE 


0,0 




00901 


0000 






.WORD 







00921 


00 






.BYTE 





; unit #8 


00931 


20 20 


20 


20 20 20 20 


.ASCII 


• 




009AI 


00 00 






.BYTE 


0,0 




009CI 


0000 






.WORD 







009EI 


00 






.BYTE 





; unit #9 


009FI 


2.0 20 


20 


20 20 20 20 


.ASCII 


* * 




00A6I 


00 01 






.BYTE 


0,1 




00A8I 


0000 






.WORD 







OOAAl 


00 






.BYTE 





; unit «10 


OOABi 


20 20 


20 


20 20 20 20 


.ASCII 


* • 




00B2| 


00 01 






.BYTE 


0,1 




O0B4| 


0000 






.WORD 







OOBSl 


00 






.BYTE 





; unit #11 


00B7I 


20 20 


20 


20 20 20 2p 


. .ASCII 


' • 




OOBEl 


00 01 






.BYTE 


0,1 




OOCOl 


0000 






. WORD 







00C2I 


00 






.BYTE 





; unit «12 


00C3I 


20 20 


20 


20 20 20 20 


.ASCII 


' ' 




OOCAl 


00 01 






.BYTE 


0,1 




OOCCi 


0000 






.WORD 







OOCEl 


00 






.BYTE 





; unit #13 


OOCFi 


20 20 


20 


20 20 20 20 


.ASCII 


' • 




00D6I 


00 01 






.BYTE 


0,1 




00D8I 


0000 






.WORD 







OODAI 


00 






.BYTE 





; unit #14 


OODBl 


20 20 


20 


20 20 20 20 


.ASCII 


' ' 




00E2| 


00 01 






.BYTE 


0,1 




00E4I 


0000 






.WORD 







00E6I 


00 






.BYTE 





; unit #15 


00E7I 


20 20 


20 


20 20 20 20 


.ASCII 


' ' 




OOEEl 


00 01 






.BYTE 


0,1 




OOFOl 


0000 






.WORD 







00F2| 


00 






.BYTE 





; unit #16 


00F3I 


20 20 


20 


20 20 20 20 


.ASCII 


' 




OOFAl 


00 01 






.BYTE 


0,1 




OOFCl 


0000 






.WORD 







OOFEl 


00 






.BYTE 





; unit #17 


OOFFI 


20 20 


20 


20 20 20 20 


.ASCII 


' 




01061 


00 01 






.BYTE 


0,1 




01081 


0000 






.WORD 







OlOAl 


00 






.BYTE 





; unit #18 


OlOBl 


20 20 


20 


20 20 20 20 


.ASCII 


* ' 




01121 


00 01 






. BYTE 


0,1 




01141 


0000 






.WORD 







01161 


00 






.BYTE 





; unit #19 


01171 


20 20 


20 


20 20 20 20 


.ASCII 


' ' 




PAGE 


- 15 


MONITOR FILE: 


MONBEGN. TEXT 






OllEl 


00 01 






.BYTE 


0,1 




01201 


0000 






.WORD 







01221 


00 






.BYTE 





; unit #20 


01231 


20 20 


20 


20 20 20 20 


.ASCII 


' ' 




012AI 


00 01 






.BYTE 


0,1 




012CI 


0000 






.WORD 







012EI 


0000 






BGTUTBL .WORD 







01301 














01301 








; initial values for system fil 


enames 


01301 














01301 


OE 






TOPSYSF .BYTE 


14 




01311 


2A 41 


53 


53 45 4D 42 


.ASCII 


' ASSEMBLER. OBJ 


' 


01381 


4C 45 


52 


2E 4F 42 4A 








013FI 


20 20 


20 


20 20 20 20 








01461 


20 20 












01481 


OD 






.BYTE 


13 




01491 


2A 43 


4F 


4D 50 49 4C 


.ASCII 


' *C0MPILER.0BJ 


' 


01501 


45 52 


2E 


4F 42 4A 20 








01571 


20 20 


20 


20 20 20 20 








OlSEl 


20 20 












01601 


OB 






.BYTE 


11 




01611 


2A 45 


44 


49 54 4F 52 


.ASCII 


' *EDIT0R.0BJ 


• 


01681 


2E 4F 


42 


4A 20 20 20 








016FI 


20 20 


20 


20 20 20 20 








01761 


20 20 












01781 


OA 






.BYTE 


10 




01791 


2A 46 


49 


4C 45 52 2E 


.ASCII 


■ *FILER. OBJ 




0180] 


4F 42 


4A 


20 20 20 20 
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' 


















- — — — — _ ,^ 


01871 


20 2C 


20 20 


20 


20 


20 










018EI 


20 2C 


















01901 


OB 












.BYTE 


11 




01911 


2A 4C 


49 4E 


4B 


45 


52 




-ASCII 


• *LINKER.OBJ 


• 


01981 


2E 4F 


42 4A 


20 


20 


20 










019FI 


20 2C 


20 20 


20 


20 


20 










01A6I 


20 2C 


















01A8i 


OD 












.BYTE 


13 




01A9I 


2A 44 


45 42 


55 


47 


47 




.ASCII 


' fDEBUGGER. OBJ 


' 


OlBOl 


45 52 


2E 4F 


42 


4A 


20 










01B7I 


20 20 


20 20 


20 


20 


20 










OlBEl 


20 20 


















OlCOl 


OF 












.BYTE 


15 




OlCll 


2A 55 


43 53 


44 


45 


44 




.ASCII 


' *UCSDEDITOR.OBJ 


' 


01C8I 


49 54 


4F 52 


2E 


4F 


42 










OlCFi 


4A 20 


20 20 


20 


20 


20 










01D6I 


20 20 


















01D8I 


09 












.BYTE 


9 




01D9I 


2A 43 


4F 44 


45 


2E 


4F 




.ASCII 


• *CODE. OBJ 


' 


OlEOl 


42 4A 


20 20 


20 


20 


20 










01E7I 


20 20 


20 20 


20 


20 


20 










OlEEl 


20 20 


















OlFOl 


OB 












.BYTE 


11 




OlFll 


2A 53 


59 53 


4D 


47 


52 




.ASCII 


• *SYSMGR. OBJ 


• 


01F8I 


2E 4F 


42 4A 


20 


20 


20 










OlFFl 


20 20 


20 20 


20 


20 


20 










02061 


20 20 


















PAGE 


- 16 


MONITOR 


FILE: 


MONBEGN 


.TEXT 






02081 


0000 










BOTSYSF 


.WORD 







020AI 




















020AI 














in it ia Izat ion code starts here 




020AI 




















0002* 


0208 


















020AI 


46FC 


2000 








INITIAL 


MOVE. W 


#$2000, SR 


; turn on interrupts 


020EI 


2E78 


013C 










MOVE. L 


$13C,A7 


; set up default SP 


02121 


207C 


0000 0100 








MOVE. L 


#$00000100, AO 




02181 


43FA 


**** 










LEA 


UNITBL, Al 




021CI 


20C9 












MOVE. L 


A1,(A0)+ 


; start of monitor 


021EI 


43FA 


«««« 










LEA 


THEEND, Al 




02221 


20C9 












MOVE. L 


Al, (AO)* 


; end of monitor 


02241 


6100 


**** 










BSR 


SETUPA5 




02281 














PUTSYSC 


#$00000000 


; set up ptr to syscom 


02281 


2B7C 


0000 ODOO 


FFFC 


» 


MOVE. L 


#$00000000, -4(A5) 




02301 




















02301 














initial 


ize syscom area 




02301 




















02301 














GETSYSC 


Al 




02301 


226D 


FFFC 








« 


MOVE. L 


-4(A5),A1 




02341 


41FA 


FDCE 










LEA 


TOPSYSC, AO 




02381 


303C 


002C 










MOVE. M 


#BOTSYSC-TOPSYSC, DO 




023CI 


12D8 










INITSYS 


MOVE. B 


(A0)+,(A1)+ 


; copy default into syscom area 


023EI 


5340 












SUB. M 


#1,D0 




02401 


66FA 












BNE.S 


INITSYS 




02421 




















02421 














allocate globals on the heap 




02421 




















02421 


2078 


0138 










MOVE. L 


$138, AO 


; get bottom of heap 


02461 














PUTIBF 


AO 




02461 


2B48 


FFAE 








« 


MOVE. L 


A0,-82(A5) 




024AI 


DOFC 


0800 










ADD. W 


#INBUFSZ, AO 


; allocate INBUFF 


024EI 














PUTIFIB 


AO 




024EI 


2B48 


FFEC 








# 


MOVE. L 


AO, -20(A5) 




02521 


DOFC 


0250 










ADO. W 


«FIBSIZE, AO 


; allocate INPUTFIB 


02561 














PUTOFIB 


AO 




02561 


2B48 


FFE8 








» 


MOVE. L 


AO, -24(A5) 




025AI 


DOFC 


0250 










ADD.M 


«FIBSIZE, AO 


; allocate OUTPUTFIB 


025EI 














PUTTFIB 


AO 




025EI 


2B48 


FFE4 








» 


MOVE. L 


AO, -28(A5) 




02621 


DOFC 


0250 










ADD.M 


»FIBSIZE, AO 


; allocate SYSTERM FIB 


02661 














PUTSFIB 


AO 




02661 


2B48 


FFEO 








« 


MOVE. L 


AO, -32(A5) 




026AI 


DOFC 


0050 










ADD. W 


#FIBSZ,AO 


; allocate SWAPFIB 


026EI 














PUTCFIB 


AO 




026EI 


2B48 


FFDC 








« 


MOVE. L 


AO, -36(A5) 




02721 


DOFC 


0050 










ADD. W 


#FIBSZ, AO 


; allocate CODEFIB 


02761 














PUTSTBL 


AO 




02761 


2B48 


FFB6 








» 


MOVE. L 


AO, -74(A5) 




027AI 


DOFC 


00D8 










ADD.W 


ttFTBLSZ, AO 


; allocate sys f names table 


027EI 














PUTDREG 


AO 




027EI 


2B48 


FF94 








« 


MOVE. L 


AO, -108(A5 ) 




02821 


DOFC 


0048 










ADD.W 


#72, AO 


; allocate sym debuggers reg save area 


02861 














PUTUREG 


AO 




02861 


2B48 


FF98 








» 


MOVE. L 


AO, -104(A5) 




PAGE 


- 17 


MONITOR 


FILE: 


MONBEGN 


.TEXT 






028At 


DOFC 


0048 










ADD.W 


#72, AO 


; allocate users reg save area 


028EI 














PUTACCA 


AO 




028EI 


2648 


FF8C 








« 


MOVE. L 


AO, -116(A5) 




02921 


5048 












ADD.W 


#8, AO 


; allocate access record 


02941 














PUTDTBL 


AO 




02941 


2B48 


FF88 








9 


MOVE. L 


AO, -120(A5 ) 




02981 


DOFC 


034C 










ADD.W 


»DTBLSIZ + MTBLSZ5, AO 


; allocate device and mount tables 


029CJ 














PUTLOGN 


AO 




I 


















. 
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Page Oil 



029CI 
02A0I 
02A4| 
02A4I 
02A8I 
02ACI 
02ACI 
02B0I 
02B4I 
02B4| 
02B8I 
02BCI 
02BCI 
02C0I 
02C4| 
02C4I 
02C8I 
02CCI 
02D0I 
02D2I 
02D6I 
02D8I 
02DCI 
02DEI 
02D0t 
02DEI 
02E2I 
02E2I 
02E6I 
02E6I 
02EAI 
02ECI 
02ECI 
02ECI 
02ECI 
02ECI 
02F0I 
02F2I 
02F2I 
02F6I 
02F8I 
02F8I 
02F8I 
02F8I 
02F8I 
03001 
03001 
PAGE 



2B48 FF60 
DOFC 0020 

2B48 FF5C 
DOFC 0498 

2B48 FFD4 
DOFC 0018 

2B48 FFCC 
DOFC 0018 

2B48 FF82 
DOFC 0250 

2B48 FFBA 
DOFC OOFC 
2438 0144 
67** 

21C8 0144 
2202 

C3FC 0200 
DlCl 

DC 

2B48 FFF4 # 

2B48 FFF8 « 

2B4F FFB2 # 

3F02 



206D FFD4 
4210 



91 



206D FFCC 
4210 



2B7C 0000 OEOO FFAA » 



MOVE.L AO, -160(A5) 

ADD. U #LOGNSZ, AO 

PUTUT17 AO 

MOVE.L AO, -164(A5) 

ADD. W #UT17SIZ,A0 

PUTSYV AO 

MOVE.L AO, -44(A5) 

ADD. W #24, AO 

PUTDKV AO 

MOVE.L AO, -52(A5) 

ADD. M #24, AO 

PUTXFIB AO 

MOVE.L AO, -126(A5) 

ADD. W #FIBSIZE,AO 

PUTUTBL AO 

MOVE.L AO, -70(A5) 

ADD. W #UTABLSZ, AO 

MOVE.L $144, D2 

BEQ. S ml 

MOVE.L A0,$144 

MOVE.L D2,D1 

MULS #FBLKSIZ,D1 

ADD.L Dl.AO 

PUTNP AO 

MOVE.L A0,-12(AS) 

PUTEMTH AO 

MOVE.L AO, -8(A5) 

PUTSPTR A7 

MOVE.L A7, -78(A5) 

MOVE.W 02, -(A7) 

initialize syvid and dkvid 

GETSYV AO 

MOVE.L -44(A5),A0 

MOVE.B #0, (AO) 

GETDKV AO 

MOVE.L -S2(A5),A0 

MOVE.B »0, (AO) 



allocate LOGN bitmap 

allocate UT17 volume name table 

allocate sysunit volume id 

allocate prefix volume id 

allocate exec file fib 

allocate unit table 

if s izeof (memory ) > then 

allocate MEMORY: 

save new heap top in NP 

save NP as empty heap 

save SP as default 

save memory size on top of stack 

intialize sysunit volid to '* 



41ED FFCA 
- 18 MONITOR 



FILE: MONBEGN. TEXT 



; intialize default volid to '' 

initialize those uith fixed allocation 

PUTSTRB «$00000E00 ; save ptr to STRBUF 

MOVE.L #$00000E00, -86(A5) 

ADDRTHD AO 

LEA -54(A5), AO 



03041 
03081 
03081 
030CI 
030EI 
030EI 
03121 
03121 
03161 
03161 
03161 
03161 
031AI 
031AI 
031EI 
031EI 
031EI 
031EI 
03221 
03261 
03261 
03261 
03261 
032AI 
032EI 
032EI 
032EI 
032EI 
03321 
03361 
03361 
03361 
03361 
033AI 
033E( 
033EI 
033E1 
033EI 
03401 
03461 
034AI 
034CI 
03501 
03501 
03501 
03501 



308C A4ES 



41ED FFBE 
4210 



422D FF87 
422D FF86 



41FA **** 
2B48 FF58 



41FA **** 
21C8 00B8 



41FA **«* 
21C8 00B4 



41FA **** 
21C8 OOBO 



41FA **** 
21C8 0018 



91C8 

227C 0000 OFOO 

303C 003F 

22D8 

S1C8 FFFC 



MOVE.W »$A4E5, (AO) 

ADDRFLR AO 

LEA -66(A5),A0 

MOVE.B #0,(A0) 

PUTEBST »0 

MOVE.B »0, -121(A5) 

PUTNXCH «0 

MOVE.B «0,-122(A5) 

set up pointer to printer driver 

LEA PRTDRVR, AO 

PUTPRNT AO 

MOVE.L A0,-168(A5) 



; initialize the DATE to May 14, 1982 



; initialize FILLER 

; initialize ebstop to nu 1 

; initialize next exec char to nu 1 



set up trap $E to point to trap handler 

; I initialize TRAP «$E 



LEA HANDLER, AO 
MOVE. L AO, $B8 



set up trap $D to point to trap handler 

LEA TRP2MAX, AO 

MOVE.L A0,$B4 ; initialize TRAP «$D 

set up trap $C to point to trap handler 

LEA SOFTBPT, AO 

MOVE.L AO,$BO ; initialize TRAP #$C 

set up CHK exception to point to trap handler 



LEA CHKERR, AO 
MOVE.L A0,$18 

save zero page at $F00 

MOVE.L «$00000000, AO 

MOVE. L »$00000F00, Al 

MOVE.W #63, DO 

MOVEOP MOVE.L (A0)+,(A1)+ 

DBF DO, MOVEOP 

initialize unit table 

GETUTBL Al 



; initialize CHK exception 



; zero page length is 64 longs 
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03501 226D FFBA 

03541 41FA FCDC 

03581 303C OOFC 

035CI 

035CI 12D8 

035EI 5340 

03601 66FA 

03621 

03621 

PAGE - 19 MONITOR 



0362 
0362 
0362 
0366 
036A 
036EI 
036E 
0370 
0372 
0374 
0374 
0374 
0374 
03741 
03741 
0378 
0378 
0378 
0378 
037C 
037C 
037C 
037C 
0380 
0382 
0382 
0386 
038AI 
038EI 
038EI 
0392 
0396 
0380 
039A! 
039AI 
039EI 
03A2 
03A6 
03A6 
03AA 
03AEI 
03B2 
03B2 
03B& 
03BA 
03BE 
03BE 
03C2 
03C& 
03CA 
03CAI 
03CE 
03D2 
03D6 
03D6 
PAGE 



226D FFB6 
41FA FDC8 
303C 00D8 

12D8 
5340 
66FA 



6100 **** 



6100 **** 



4AB8 0148 

67** 

1F3C 0001 
3F3C 0002 
6100 •*** 

1F3C 0001 
3F3C 0001 
6100 •*** 
18 

iF3C 0001 
3F3C 0003 
6100 ••** 



1F3C 
3F3C 
6100 

1F3C 
3F3C 
6100 

1F3C 
3F3C 
6100 



0001 
0007 

0001 
0006 

0001 
0005 



1F3C WOl 
3F3C 0004 
6100 *•** 



- 20 MONITOR 



INITUTBL 



MOVE. L -70(A5), Al 

LEA TOPUTBL, AO 

MOVE. M #BOTUTBL-TOPUTBL, DO 

MOVE.B (A0)+,(A1)* 

SUB.W »1,D0 

BNE.S INITUTBL 



i initialize system filenames table 
FILE: MONBEGN. TEXT 



INITSYSF 



GETSTBL Al 

MOVE.L -74(A5),A1 

LEA TOPSYSF, AO 

MOVE. N #BOTSYSF-TOPSYSF, DO 



MOVE.B (A0)*,(A1)+ 
SUB.W «1,D0 
BNE.S INITSYSF 

zero #4: ( ie. MEMORY: ) 

note the memory size in blocks has already been pushed on top of stack 
BSR ZEROMEM 
initialize the device table 
BSR INITDEV 

test for disks, setup device table and setup the mount table 

TST.L 
BEQ. S 

MOVE. B 

MOVE 

BSR 



$148 
NOTWGDR 

B «1,-(A7) 
W «2,-(A7) 
RDMTABL 



MOVE.B «1,-(A7 
MOVE. W #1,-{A7 
BSR RDMTABL 



NOTWGDR 



MOVE 
MOVE 
BSR 



.B #1,-(A7) 
.W «3,-(A7) 
WTABL 



MOVE.B #1, 
MOVE. W #7, 
BSR RDMTABL 



MOVE.B #1,-(A7 

MOVE.W «6,-(A7 

BSR RDMTABL 

MOVE.B «1,-(A7 

MOVE.W «5, -(A7 

BSR RDMTABL 

MOVE.B »1,-(A7 

MOVE.W #4, -(A7 

BSR RDMTABL 

; setup 60hz handler for automatic unmount of profile 
FILE: MONBEGN. TEXT pror i le 



03D6I 

03D61 4E71 

03D8I 

03D8( 

03D8I 

03D8I 6100 ••** 

03DCI 

03DCI 

03DCI 

03DCI 6100 •*** 

03E0I 

03E0I 

03E0I 

03E0I 6100 *•** 

03E4I 

03E4I 

03E4I 

03E4I 6100 ••** 

03E8I 

03E8I 

03E8I 

03E8I 6000 ••** 

03ECI 

03ECI 08 

03EDI 43 *• 4E 53 4F 4C 45 

03F4I 3A X 



NOP 
; get root volume directory, then init syvid, dkvid, thedate 

BSR GETRDIR 
; in it ia 1 ize f i les 

BSR INITFLS 
; update SYSCOM area with MON. MISCINFO 

BSR INITMI 
; try to execute MON. STARTUP 

BSR XSTRTUP 
I print welcome message and startup monitor at the command 1 in« 

BRA WELCOME 

FILISTR .BYTE 8 

.ASCII 'CONSOLE: ' 
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03F6I 






J 






03F6I 


08 




FIL2STR 


.BYTE 


8 


03F7I 


53 59 53 54 45 


52 4D 


.ASCII 


' SYSTERM: ' 


03FEI 


3A 20 








04001 












04001 








INITIALIZE FILES 


04001 












OSDE* 


0022 










04001 






INITFLS 






04001 












04001 








initial 


ize INPUTFIB 


04001 












04001 








GETIFIB 


Al 


04001 


226D 


FFEC 


« 


MOVE. L 


-20(A5),A1 
Al, -(A7) 


04041 


2F09 






MOVE. L 


04061 


4869 


0050 




PEA 


FBUFFERf Al ) 


040AI 


4267 






MOVE. W 


#0,-(A7) 


040CI 


6100 


**** 




BSR 


FINIT 


04101 








GETIFIB 


-(A7) 
-20(A5), -(A7) 


04101 


2F2D 


FFEC 


« 


MOVE. L 


04141 


487A 


FFD6 




PEA 


FILISTR 


04181 


3F3C 


0001 




MOVE. W 


«1,-(A7) 
-(A7) 


041CI 


42A7 






CLR.L 


041EI 


6100 


**** 




BSR 


FOPEN 


04221 












04221 








initial 


ize OUTPUTFIB 


04221 












04221 








GETOFIB 


Al 


04221 


226D 


FFE8 


« 


MOVE. L 


-24(A5),A1 


PAGE 


- 21 


MONITOR 


FILE: MONBEGN 


.TEXT 




04261 


2F0§ 






MOVE. L 


A1,-(A7) 


04281 


4869 


0050 




PEA 


fbuffer(ai ) 


042CI 


4267 






MOVE. W 


«0, -(A7) 


042EI 


6100 


DlHtlKW 




BSR 


FINIT 


04321 








GETOFIB 


-{A7) 
-24(A5), -(A7) 


04321 


2F2D 


FFE8 


« 


MOVE. L 


04361 


487A 


FFB4 




PEA 


FILISTR 


043AI 


3F3C 


0001 




MOVE. W 


#1,-(A7) 
-(A7) 


043E1 


42A7 






CLR.L 


04401 


6100 


*««« 




BSR 


FOPEN 


04441 












04441 








initial 


ize SYSTERM FIB 


04441 












04441 








GETTFIB 


Al 


04441 


226D 


FFE4 


n 


MOVE. L 


-28(A5),A1 
A1,-(A7) 


04481 


2F09 






MOVE. L 


044AI 


4869 


0050 




PEA 


FBUFFER(Al ) 


044EI 


4267 






MOVE. W 


#0, -(A7) 


04501 


6100 


ODtlikHc 




BSR 


FINIT 


04541 








GETTFIB 


-(A7) 
-28(A5), -(A7) 


04541 


2F2D 


FFE4 


« 


MOVE. L 


04581 


487A 


FF9C 




PEA 


FIL2STR 


045CI 


3F3C 


0001 




MOVE. N 


»1, -(A7) 
-(A7) 


04601 


42A7 






CLR.L 


04621 


6100 


**** 




BSR 


FOPEN 


04661 






; 






04661 


4E75 






RTS 




04681 






J 






04681 


OC 




SMSCNFO 


.BYTE 


12 


04691 


4D 4F 4E 2E 4D 


49 53 


.ASCII 


' HON. MI SC INFO ' 


04701 


43 49 4E 46 4F 


20 






04761 












04761 








INITMI 


-- initialize SY 


04761 












04761 


0000 


0050 


MISCFIB 


EQU 


FIBSZ 


04761 


0000 


0250 


MISCBUF 


EQU 


MISCFIB+FBLKSIZ 


04761 






; 






03E2* 


0094 










04761 


4E56 


FDBO 


INITMI 


LINK 


A6,#-MISCBUF 


047AI 


486E 


FFBO 




PEA 


-MISCFIB(A6 ) 


047EI 


42A7 






CLR.L 


-{A7) 


04801 


3F3C 


FFFF 




MOVE. W 


#-1, -(A7) 


04841 


6100 


**** 




BSR 


FINIT 


04881 


486E 


FFBO 




PEA 


-MISCFIB(A6) 


048CI 


487A 


FFDA 




PEA 


SMSCNFO 


04901 


3F3C 


0001 




MOVE. H 


«1.-(A7) 
-(A7) 


04941 


42A7 






CLR.L 


04961 


6100 


*«** 




BSR 


FOPEN 


049AI 








GETSYSC 


AO 


049AI 


206D 


FFFC 


« 


MOVE. L 


-4(A5),A0 


049EI 


4A10 






TST.B 


(AO) 


04A0I 


66** 






6NE. S 


INITMIX 


04A2! 


42A7 






CLR.L 


-(SP) 


04A4I 


486E 


FFBO 




PEA 


-MISCFIB(A6) 
-MISCBUF(A6) 


04A8I 


486E 


FDBO 




PEA 


PAGE 


- 22 


MONITOR 


FILE: MONBEGN 


TEXT 




04ACI 


3F3C 


0001 




MOVE. M 


«1, -ISP) 


04B0I 


4267 






MOVE.W 


«0,-(SP) 


04B2I 


3F3C 


0001 




MOVE. M 


»1, -(SP) 


04B6I 


6100 


«««« 




BSR 


BLKIO 


04BAI 


4A5F 






TST.W 


(A7)* 


048CI 


6700 


**** 




BEG 


INITMIX 



if ile 



in it ia 1 ize F ib 

Sif ile 

®t it le 

openo Id: =true 

junk 



9f ill 



; in it ia 1 ize f ib 
; (if ile 

®t it le 

openo Id: =true 

junk 



; srile 



in it ia 1 ize F ib 
SFile 

@t it le 

openo Id: =true 

junk 



@F i le 

untyped File 

initial ize F ib 

SiFi le 

(St it le 

openo Id: =true 

junk 

open the F i le 



exit iF ioresult is nonzero 

Room For Function result 
F i le address 
BuFFer address 



tt Blocks to read 
Block to read 
Read: =truB 

test ^blocks read, exit iF zero 



/ 
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■» 


04C0I 


41EE 


FDBO 




LEA 


-MISCBUF(A6 ), AO ; compute dsource 


04C4I 


DOFC 


003A 




ADD. W 


#58, AO 


04C8I 








GETSYSC 


Al ; compute Sdest inat ion 


04C8I 


226D 


FFFC 




» MOVE. L 


-4(A5),A1 


04CCI 


SC49 






ADO. W 


«0FSMISC-T0PSYSC,A1 


04CEI 


7013 






MOVE. L 


«19,D0 


04D0I 


32D8 






INITMIL MOVE.W 


(A0)+,(A1)+ ; copy MISCINFO from file to SYSCOM 


04D2I 


5340 






SUB. W 


#1,D0 


04D4| 


66FA 






BNE. S 


INITMIL 


048E* 


0018 










04A0* 


34 










04D6I 


4E5E 






INITMIX UNLK 


A6 


04D8I 


4E75 






RTS 




040A| 












04DAI 








! PROCEDURE ZEROMEM(BLKS: INTEGER) | 


04DAI 












04DAI 








; stack 




04DAI 








; 8 


number of blocks 


04DAI 








; 4 


return address 


04DAI 








; 


old A6 


04DAI 












0376* 


0164 










04DAI 


4E56 


F800 




ZEROMEM LINK 


A6,«-2048 ; allocate 2k for directory 


040EI 


342E 


0008 




MOVE. M 


8(A6),D2 


04E2I 


67** 






BEQ. S 


<B3 ; if no memory then exit 


04E4| 












04E4I 








; zero th 


e directory 


04E4I 












G4E4I 


20 4F 






MOVE. L 


A7,A0 


04E6I 


303C 


OlFF 




MOVE. N 


#511, DO ; fill 512 longs with zero 


04EAI 


4298 






(Bl MOVE. L 


#0, (AO)* 


04ECI 


51C8 


FFFC 




DBF 


DO, (Hi 


04F01 












04F0I 








i fill in 


dir-entry[0] 


04F0I 












04F0t 


204F 






MOVE. L 


A7,A0 ; fill in only nonzero fields 


04F2I 


317C 


0006 


0002 


MOVE. W 


«6,LSTBLK(A0) ; first., last is 0. . 6 


04F8I 


43E8 


0006 




LEA 


DVID(AO), Al 


04FCI 


22FC 


064D 


45 4D 


MOVE. L 


»$064D454D, (Al )* ; set DVID to MEMORY 
#$4F525900, (Al )* 


05021 


22FC 


4F52 


5900 


MOVE. L 


05081 


3142 


OOOE 




MOVE. M 


D2,DE0VBLK(A0) ; set number of blocks (no files) 


OSOCi 


317C 


A4E5 


0014 


MOVE. M 


»$A4E5,DLASTBT(A0) ; set DATE to May 14, 1982 


05121 












05121 








; copy th 


e directory to #4: 


05121 












05121 


204F 






MOVE. L 


A7,A0 


05141 


2278 


0144 




MOVE. L 


$144, Al 


05181 


D2FC 


0400 




ADD.W 


«2*FBLKSIZ, Al 


051CI 


303C 


OlFF 




MOVE. M 


«511,D0 ; copy 512 longs 


PAGE 


- 23 


MONITOR 


FILE: MONBEGN. TEXT 




05201 


22D8 






®2 MOVE. L 


(A0)+,(A1)+ 


05221 


51C8 


FFFC 




DBF 


D0,®2 


04E2* 


42 










05261 


4E5E 






aP3 UNLK 


A6 


05281 


205F 






MOVE. L 


(A7)+, AO 


052AI 


544F 






AOD.M 


»2,A7 


052CI 


4ED0 






JMP 


(AO) 


052EI 












052EI 








; initial 


ize the device table 


052EI 












037A* 


01B4 










052EI 


4E56 


FFEO 




INITDEV LINK 


A6, #-DNTRYSZ 


05321 


204F 






MOVE. L 


A7, AO 


05341 


4280 






CLR.L 


DO 


05361 


20C0 






MOVE. L 


DO, (AO )+ ; clear device name 


05381 


20C0 






MOVE.L 


DO, (AO)* 


053AI 


20C0 






MOVE. L 


DO, (AO)* 


053CI 


20C0 






MOVE. L 


DO, (A0)+ 


053EI 


70FF 






MOVE. L 


»-l,DO 


05401 


20C0 






MOVE.L 


DO, (A0)+ 


base of hardware 


05421 


20C0 






MOVE. L 


DO, (AO)* 


mount table 


05441 


20C0 






MOVE.L 


DO,(AO)* 


driver jump table 


05461 


20C0 






MOVE. L 


DO, (A0)+ 


global data area 


05481 








GETDTBL 


Al 


05481 


226D 


FF88 




« MOVE.L 


-120(A5),A1 


054CI 


4240 






MOVE. H 


»0,D0 


054EI 


204F 






DEVLOOP MOVE.L 


A7, AO 


OSSOi 


45FA 


>K>ttitl>K 




LEA 


DEVJMPT, A2 


05541 


4EF2 


0000 




JMP 


0(A2,D0) 


0552* 


0006 










05581 


5000 


**** 




DEVJMPT BRA 


DEVNUMO 


055CI 


6000 


>i<»l>tllt< 




BRA 


DEVNUMl 


05601 


6000 


**** 




BRA 


DEVNUM2 


05641 


6000 


KoXKcKl 




BRA 


DEVNUM3 


05681 


6000 


^m** 




BRA 


DEVNUM4 


056CI 


6000 


>K>tt)tilt< 




BRA 


DEVNUM5 


05701 


6000 


**** 




BRA 


DEVNUM6 


05741 


6000 


**** 




BRA 


DEVNUM7 


05781 








DEVNUMO GETDTBL 


A3 


055A* 


OOIE 










05781 


266D 


FF88 




# MOVE. L 


-120(A5), A3 


057CI 


D6FC 


0100 




ADD.M 


«DTBLSIZ, A3 


05801 


214B 


0014 




MOVE. L 


A3,DEVMTBL(A0) 


05841 


6000 


**** 




BRA 


DOCOPY 

y 
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05881 








DEVNUMl GETDTBL 


A3 


055E* 002A 












05881 266D 


FF88 






» MOVE. L 


-120(A5),A3 


058CI D6FC 


0100 






ADD. W 


•DTBLSIZ, A3 


05901 214B 


0014 






MOVE. L 


A3,DEVMTBL(A0) 


05941 6000 


*>K4i« 






BRA 


DOCOPY 


0562* 0036 












05981 D6FC 


0054 






DEVNUM2 ADD.W 


#MTBLSIZ,A3 


059CI 214B 


0014 






MOVE. L 


A3,DEVMTBL(A0) 


05A0I 60** 








BRA.S 


DOCOPY 


0566* 003C 












PAGE - 24 


MONITOR 


FILE: 


MONBEGN. TEXT 




05A2I 2178 


0134 


0010 




DEVNUM3 MOVE.L 


$134,DEVBASE(A0) 


05A8I D6FC 


0054 






ADD.W 


«MTBLSIZ, A3 


OSACi 214B 


0014 






MOVE. L 


A3,DEVMTBL(A0) 


05B0| 60** 








BRA.S 


DOCOPY 


056A* 0048 












05B2I 2178 


0158 


0010 




DEVNUM4 MOVE. L 


$158,DEVBASE(A0) 


05B8I 67** 








' " BEQ.S 


SI 


05BAI 06A8 


0000 


2001 


0010 


ADD.L 


«$2001,DEVBASE(A0) 


05B8* 08 












05C2I D6FC 


0054 






91 ADD.W 


#MTBLSIZ, A3 


05C6I 214B 


0014 






MOVE. L 


A3,DEVMTBL(A0) 


05CA| 60** 








BRA.S 


DOCOPY 


056E* 005E 












05CCI 2178 


0158 


0010 




DEVNUM5 MOVE.L 


$158,DEVBASE(A0) 


05D2I 67** 








BEQ.S 


SI 


05D4I 06A8 


0000 


2801 


0010 


ADD.L 


»$2801,DEVBASE(A0) 


05D2* 08 












05DCI D6FC 


0054 






(51 ADD. W 


#MTBLSIZ, A3 


OSEOl 214B 


0014 






MOVE.L 


A3,DEVMTBL(A0) 


65E4| 60** 








BRA.S 


DOCOPY 


0572* 0074 












05E6I 2178 


0158 


0010 




DEVNUM6 MOVE.L 


$158,DEVBASE(A0) 


05ECI 67** 








BEQ.S 


91 


05EEI 06A8 


0000 


3001 


0010 


ADD.L 


«$3001,DEVBASE(A0) 


05EC* 08 












05F6I D6FC 


0054 






Si ADD.M 


»MTBLSIZ,A3 


05FAI 214B 


0014 






MOVE. L 


A3,DEVMTBL(A0) 


05FEI 60** 








BRA.S 


DOCOPY 


0576* 008A 












06001 2178 


0158 


0010 




DEVNUM7 MOVE.L 


»158,DEVBASE(A0) 


06061 67** 








BEQ.S 


91 


06081 06A8 


0000 


3801 


0010 


ADD.L 


#$3801,DEVBASE(A0) 


0606* 08 












06101 D6FC 


0054 






Si ADD.W 


•MTBLSIZ, A3 


06141 214B 


0014 






MOVE. L 


A3,DEVMTBL(A0) 


05FE* 18 












05E4* 32 












05CA* 4C 












05B0* 66 












05 AO* 76 












0596* 0082 












0586* 0092 












06181 7207 








DOCOPY MOVE. L 


#DNTRYSZ/4-l,Dl 


061AI 22D8 








CPYLOOP MOVE.L 


(A0)+,(A1) + 


061CI 51C9 


FFFC 






DBF 


Dl, CPYLOOP 


06201 5840 








ADD.W 


#4, DO 


06221 0C40 


0020 






CMP.W 


«4*<MAXDEV+1>,D0 


06261 6600 


FF26 






BNE 


DEVLOOP 


062AI 












062AI 








;' clear LOGN bi 


tmap 


062AI 












062AI 








GETLOGN 


AO 


062AI 206D 


FF60 






« MOVE. L 


-160(A5 ), AO 


062EI 303C 


0007 






MOVE. W 


«MAXDEV, DO 


06321 4298 








SI CLR.L 


(A0)+ 


PAGE - 25 
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FILE: 


MONBEGN. TEXT 




06341 51C8 


FFFC 






DBF 


DO, Si 


06381 












06381 








• clear UT17 vo 


lume name table 


06381 












06381 








GETUT17 


AO 


06381 206D 


FF5C 






« MOVE. L 


-164(A5), AO 


063CI 303C 


0092 






MOVE. W 


»UT17SIZ/8-l,D0 


06401 4298 








®2 CLR.L 


!«!: 


06421 4298 








CLR.L 


06441 51C8 


FFFA 






DBF 


D0,S2 


06481 4E5E 








UNLK 


A6 


064AI 4E75 








RTS 


- 


064CI 








; 




064CI 0008 








WILPL . WORD 


8 


064EI 57 65 6C 63 6F 


6D 65 


WIPL .ASCII 


'Welcome ' 


06551 20 












06561 








J 




06561 0010 








W2LPL . WORD 


16 


06581 20 74 6F 20 4C 


69 73 


W2PL .ASCII 


to L isa Mon i tor' 


065FI 61 20 4D 6F 6E 


69 74 






06661 6F 72 










06681 












06681 








\ XSTRTUP 


-- execute MON. STARTUP 


06681 
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06681 

06681 

066CI 

06701 

06701 

06741 

06761 

06781 

067AI 

067CI 

067EI 

06821 

06841 

06861 

06881 

068CI 

06901 

06941 

06981 

0684* 

069CI 

069EI 

066E* 

069EI 

069FI 

06A6I 

06AAI 

06AAI 

06AAI 

06AAI 

06AEI 

PAGE ■ 



4220 FFA9 
41FA **** 

226D FFAA 

22D8 

22D8 

22D8 

22D8 

4241 

6100 **** 

4A40 

67** 

4A9F 

6100 **** 

6100 **** 

6100 **** 

6100 **** 

6000 ***« 

16 

4E75 

0030 

OB 

4D 4F 4E 2E 53 

52 54 55 50 



6100 **** 
6100 **** 
■ 26 MONITOR 



XSTRTUP DBUGCLR 

# MOVE.B »0, -87(A5) 

LEA STARTUP, AO 

GETSTRB Al 

« MOVE. L -86(A5),A1 

MOVE. L (A0)+,(A1)* 

MOVE.L (A0) + ,(a1)+ 

MOVE. L (A0)+,(A1)+ 

MOVE.L (AO) + ,(Al)+ 

CLR.W Dl 

BSR TRYEXEC 

TST. M DO 

BEQ. S (12 

TST.L (A7) + 

BSR GETREGS 

BSR INITPRG 

BSR HOMCRSR 

BSR CLRSCR 

BRA CMDLOOP 



; Just execute system. startup 

; 16 bytes is 4 longs 

; MON. STARTUP doesn't have EXEC/ 

; delete return address 



92 



RTS 



STARTUP .BYTE 11 
54 41 .ASCII 'MON. STARTUP' 



06B2 
0666i 
06BAI 
06BEI 
06C0 
06C2I 
06C4) 
06C8I 
06CCI 
06D0I 
06D0I 

oeo4i 

06D6I 
06D8I 
06DCj 
06EQI 
06E4) 
06E8i 
06ECI 
06F0I 
OGFOi 
O6F0I 
06F0I 
O6F0I 
06F0I 
O6F0 
06F2I 
06F6I 
06F8I 
06FCI 
OeFEj 
07021 
07041 
87081 
070AI 
OTOEl 
07101 

vn4{ 

07161 
071 Al 

ia7ici 
ftrm 

»722| 
D726I 
a728j 
BTZCl 
ij?2E| 

sn2[ 

S734I 
S738) 

vn*^ 

173EI 

17441 
17«| 

fMBE 



6100 **** 
3F3C 0008 
6100 **** 
5357 
66F8 
4A5F 

43FA FF88 
343A FF82 
6100 **** 

226D FFD4 
1419 
4882 

6100 **** 
43FA FF7A 
343A FF74 
6100 **** 
6100 **** 
6000 **** 



0000 
0000 
OOOF 
0000 
OOOF 
0000 
0000 
0000 
OOOF 
0000 
OOOF 
0000 
0006 
0000 
0005 
0000 
0006 
0000 
OOOF 
0000 
OOOF 
0000 
OOOF 
0000 
OOOF 
0000 
OOOF 
0000 
OOOF 
0000 
- 27 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 
MONITOR 



WELCOME 



prints uielcome message 



WELCOME BSR GETREGS 
BSn HOMCRSR 
FILE: MONBEGN. TEXT 



BSR CLRSCR 

MOVE.W #8,-(A7) 

WELC0M2 BSR WCRLF 

SUB. W #1,(A7) 

BNE. S WELC0M2 

TST.W (A7)* 

LEA WlPL.Al 

MOVE. W WILPL, 02 

BSR PRINT 

GETSYV Al 

» MOVE.L -44(A5),A1 

MOVE.B (A1)+,D2 

EXT. W 02 

BSR PRINT 

LEA W2PL, Al 

MOVE. W W2LPL, 02 

BSR PRINT 

BSR WCRLF 

BRA CMDLOOP 



; print CRLF's to middle of screen 

; delete CRLF counter 

; print 'Welcome ' 

; print sysunit volid 

; print ' to Lisa Monitor' 



FILE: 



W*H OOOF 

5?d 0000 0000 

jrsoi OOOF 

3rS2| 0000 0000 



; START OF THE RESIDENT 1 

'; UNIT TABLE -- VECTORS 


UNITBL .WORD 







.WORD 


0,0 




. . WORD 


ALLBIT 




. WORD 


0,0 


; DRVR 


.WORD 


ALLBIT 




.WORD 


0,0 


; DRVR 


.WORD 







.WORD 


0,0 




.WORD 


ALLBIT 




. WORD 


0.0 


; DRVR 


.WORD 


ALLBIT 




.WORD 


0,0 


; DRVR 


.WORD 


OUTBIT+ 


CLRBIT 


.WORD 


0,0 


; DRVR 


-WORD 


INBIT+CLRBIT 


.WORD 


0,0 


; DRVR 


.WORD 


0UTBIT+ 


CLRBIT 


.WORD 


0,0 


; DRVR 


.WORD 


ALLBIT 




.WORD 


0,0 


; DRVR 


.WORD 


ALLBIT 




.WORD 


0,0 


; DRVR 


.WORD 


ALLBIT 




.WORD 


0,0 


; DRVR 


.WORD 


ALLBIT 




.WORD 


0,0 


; DRVR 


.WORD 


ALLBIT 




.WORD 


0,0 


; DRVR 


.WORD 


ALLBIT 




.WORD 


0,0 


; DRVR 


MONBEGN. TEXT 






.WORD 


ALLBIT 




.WORD 


0,0 


J DRVR 


.WORD 


ALLBIT 




.WORD 


0,0 


; DRVR 



DRIVERS 

Unit 0: illegal 

Unit 1: CONSOLE: 

Unit 2: SYSTERM: (non-echoing keyboard 

Unit 3: not used 

Unit 4: disk drive 

Unit 5: disk drive 1 

Unit 6: PRINTER: 

Unit 7: REMIN: 

Unit 8: REMOUT: 

Unit 9: disk drive 3 

Unit 10: disk drive 4 

Unit 11: disk drive 5 

Un-it 12: disk drive 6 

Unit 13: disk drive 7 

Unit 14: disk drive 8 

Unit 15: disk drive 9 

Unit 16: disk drive 10 
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07561 
07581 
075CI 
075EI 
07621 
07641 
07681 
076A| 
076EI 
076EI 
076EI 
076E( 
07721 
07761 
077AI 
077EI 
07821 
07861 
078AI 
078EI 
07921 
07961 
079AI 
079EI 
07A2| 
07A6I 
07AAI 
07AE1 
07B21 
07B6I 
07BAI 
07BEI 
07C2I 
07C6I 
07CAI 
07CEI 
07D2| 
07D6I 
07DAI 
07DEI 
07E2I 
07E6I 
07EAI 
07EEI 
07F2I 
07F6I 
07FA| 
07FEI 
08021 
08061 
080AI 
PAGE 



OOOF 

0000 0000 
OOOF 

0000 0000 
OOOF 

0000 0000 
OOOF 
0000 0000 



6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
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080EI 

08121 

08161 

081AI 

081EI 

08221 

08261 

08261 

08261 

08261 

082AI 

082EI 

08321 

08341 

08341 

08341 

08341 

08341 

082C* 

08341 

08361 

08381 

083CI 

083EI 

08401 

08421 

08461 

0840* 

08481 

084CI 

08501 

08501 

08501 

07C0* 

08501 

08541 

08561 

08561 

08561 

08561 

07CC* 

08561 

w 



6000 
6000 
6000 
6000 
6000 
6000 



21CE 
41FA 
2F48 
4E73 



He*** •^rPC 

**** oIF.'Be 

**** 
**** 
**** 
**** 
**** 
**** 

**** 
**** 
**** 
**** 
**** 

*IIClil>tl 

**** 
**** 
**** 
**** 
**** 

«*** 
**** 

**** 

**** 
**** 
**** 

**** 
**** 

MONITOR 



**** 
**** 
**** 
**** 
**** 
**** 






FILE: 



.WORD 


ALLBIT 


.WORD 


0,0 ; DRVR 


. WORD 


ALLBIT 


.WORD 


0,0 ; DRVR 


.WORD 


ALLBIT 


.WORD 


0,0 i DRVR 


.WORD 


ALLBIT 


.WORD 


0,0 ; DRVR 


JMPTBL BRA 


ZZLOADIT 


BRA 


ZZUNLOAD 


BRA _ 


. FWRTCHAR 


BRA . 


FWRITELN 


BRA 


FREADCHR 


BRA 


FREADLN 


BRA 


FINIT 


BRA 


FOPEN 


BRA 


BLKIO 


BRA 


MNEW 


BRA 


MMRK 


BRA 


MRLS 


BRA 


MEMA 


BRA 


UCLR 


BRA 


UREAD 


BRA 


UWRITE 


BRA 


UBUSY 


BRA 


ZZIORES 


BRA 


REMOVEl 


BRA. 


.FCLOSE 


BRA 


MHALT 


BRA 


MIOERR 


BRA 


MGOTOXY 


BRA 


RCERR 


BRA 


SCERR 


BRA 


LAUNCH 


BRA . 


FGET 


BRA . 


FPUT 


BRA 


FSEEK 


BRA 


SCANTTL 


BRA 


FREEPROC 


BRA 


VOLSRCH 


BRA 


DIRSRCH 


BRA 


FRESET 


BRA 


INSNTRY 


BRA 


DELNTRY 


BRA 


ADDR2S0 


BRA 


PMADDR2S 


. = BRA 


ADDRDRVR 


BRA 


FIDSKINIT 


MONBEGN. TEXT 




i BRA_ 


DSKREAD 


" BRA 


DSKWRT 


BRA 


*§ETHDSK 


, BRA 


Ndskcsz 


*f BRA 


RDMTABL 


BRA 


REVISION 


; Validate index, check 



i Unit 17: disk drive 11 

; Unit 18: disk drive 12 

; Unit 19: disk drive 13 

; Unit 20: disk drive 14 



0140 
0002 



0000 00B8 



0008 

301F 

6Bt"f 

0C40 

6E*« 

4A40 

67** 

6100 

61** 

06 

41FA 

4EF0 



0090 
3F3C 
60** 



008A 
4A2D 



00B8 



FF24 
0000 



0002 



FFA8 



HANDLER MOVE. L A6, $140 

LEA GETINDX,AO 

MOVE.L A0,2(A7) 
RTE 

DON'T MOVE HANDLER ! 

MAXINDX ECU HANDLER- JMPTBL 



GETINDX MOVE. W (A7)+,D0 

BMI.S INDXERO 

CMPI.W »MAXINDX,DO 

BGT. S INDXERO 

TST.W DO 

BEG. S ®1 

BSR SETUPA5 

BSR. S OVFCHK 



01 LEA JMPTBL, AO 
JMP 0(AO,DO) 

MHALT -- programmed halt 



MHALT MOVE. W «2 , - ( A7 ) 
BRA.S INDXERR 



; offset 


= 







; offset 


= 


4 


; offset 


= 


8 7 


; offset 


= 


12 [ 


; offset 


= 


16 r 


; offset 


= 


20 J 


; offset 


= 


24 


J offset 


= 


28 


; offset 


= 


32 


i offset 


= 


3r 


; offset 


= 


40 




; offset 


= 


44 




; offset 
; offset 


= 


48J 




52 




; offset 


s 


56 


L 


; offset 


= 


60 


; offset 


= 


64 




; offset 


= 


68 


; offset 


= 


72 


; offset 


= 


76 


; offset 


= 


80 


; offset 


= 


84 


; offset 


s 


88 


; offset 


= 


92 


J offset 


= 


96 


; offset 


= 


100 


J offset 


= 


104"~7 
108 { 

iir^ 


; offset 


= 


; offset 


= 


; offset 


= 


116 


; offset 


= 


120 


; offset 


= 


124 


; offset 


= 


128 


; offset 


= 


132 


; offset 


= 


136 


; offset 


= 


140 


; offset 


= 


144 


; offset 


=; 


148 


; offset 


= 


152 


; offset 


~ 


156 


; offset 


__ 


160 


; offset 


= 


164 


; offset 


= 


168 


; offset 


= 


172 


; offset 


= 


176 


; offset 


= 


180 





; update PC uiith entry point 
; get back to callers stack 



get index word 

if ( indBX<0 ) or ( index>max indx ) then 
goto indxerO 

; skip overfloui check for ZZLOADIT 

; get pointer to system globals 



; get address of Jump table 
; go to it 



; push error* 2 



RCERR -- range check error from pas lib routine 
RCERR RUNUTST 
» TST.B -88(A5) 
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085AI 67** 

085CI 40E7 

085EI 3F3C 0006 

08621 6000 **** 

085A* OA 

08661 3F3C 0003 

086AI 60** 

086CI 

086CI 

086CI 

086CI 

07D0* 009C 

086CI 4A2D FFA8 

PAGE - 29 MONITOR 



(91 



SCERR 



BEQ. S ®1 

MOVE SR, -(A7 

MOVE. W #6, -(A7 

BRA SOFTBO 

MOVE. W #3, -(A7) 

BRA.S INDXERR 



; push error* 3 



FILE: MONBEGN.TEXT 



SCERR -- string index error 

RUNUTST 

TST.B -88(A5) 



08701 

08721 

08741 

08781 

0870* 

087CI 

08801 

08821 

08821 

08821 

0846* 

08821 

08861 

08881 

088EI 

088EI 

08921 

08941 

08961 

089AI 

0894* 

089EI 

08A2I 

08A4I 

08A4I 

08A6I 

08ADI 

08B2I 

08B2I 

08B2I 

08B2I 

08B2I 

08B2I 

G8B2I 

08B2I 

08B2I 

08B2I 

08B2I 

08B2I 

08B2I 

08B2I 

08B2I 

08B2I 

08B2I 

083C* 

0836* 

08B2I 

089C* 

0880* 

086A* 

0854* 

08B4I 

08B8I 

08BCI 

08C0I 

PAGE 



67** 

40E7 

3F3C 0006 

6000 *«** 

OA 

3F3C 0004 

60** 



BEQ. S (91 

MOVE SR, -(A7 

MOVE.W #6,-(A7 

BRA SOFTBO 



91 



MOVE.W #4, -(A7) 
BRA.S INDXERR 



; push error** 4 
OVFCHK -- stack overflow check routine 



3A 

48E7 OOCO 

204F 

91FC 0000 0100 

226D FFF4 

B1C9 

6E** 

3F3C 0001 

6000 **** 

08 

4CDF 0300 

4E75 

OOOC 

46 61 74 61 «C 

72 72 6F 72 »0 



OVFCHK MOVEM. L A0/A1,-(A7) 

MOVE. L A7, AO 

SUB.L #256, AO 

GETNP Al 

» MOVE.L -12(A5),A1 

CMP.L ' Al, AO 

BGT. S OVFCHKX 

. MOVE.W #1, -(A7) 

BRA INDXERR 

OVFCHKX MOVEM. L (A7)+,A0/A1 
RTS 



; get some room 

; make sure at least 256 Tree bytes 

; stack overflow ? 

; yes, error 

; no, just return 



HLPL 
20 45 HPL 



. WORD 12 

.ASCII 'Fatal Error 



INDXERR - Fatal trap handler errors come here. 

error 

#0 = trap index out of range 
#1 = stack overflow 
tt2 = programmed halt 
#3 = value range error 
#4 = invalid string index 
#5 = can't read root volume 



stack 



4 error# 
old A6 
-2 errornumber 



74 
7A 

4267 
0018 
32 
48 
5E 

4E56 FFFE 
43FA FFEC 
343A FFE6 
6100 ***• 
- 30 MONlT» 



08C4I 

08C8I 

08CA1 

08CEI 

08D2I 

08D4I 

08D8I 

08D8I 

08D8I 

08D8I 

08DAI 

08DEI 

08DEI 

08E2I 

08E4I 

08E6| 

08EAI 

08E4* 

08EEI 

08F2I 

08F4I 

08F4I 



43EE FFFE 
7402 

32BC 0030 
302E 0004 
48C0 
6000 **•• 



2F0D 
6100 ***• 

4A2D FFA8 

2A5F 

67** 

3F3C 0006 

6000 **•• 

08 

3F3C 0003 

60C0 



I NDXERO MOVE.W «0,-(A7) 



INDXERR LINK A6, «-2 

LEA HPL, Al 

MOVE.W HLPL,D2 

BSR PRINT 
FILE: MONBEGN.TEXT 



LEA -2(A6),A1 

MOVE.L «2,D2 

MOVE.W «$30,(A1) 

MOVE.W 4(A6),D0 

EXT.L DO 

BRA PRNTERR 



; push error* 



allocate: errornumber 

address 

and length 



address 

and length 

initialize error number to '0' 



CHKERR -- range check error from CHK instruction 

; get pointer to system globals 



CHKERR MOVE.L A5,-(A7) 

BSR SETUPA5 
RUNUTST 
« TST.B -88(A5) 

MOVE.L (A7)+,A5 

BEQ. S iDl 

MOVE.W «6,-(A7) 

BRA SOFTBO 



MOVE.W »3,-(A7) 
BRA. S INDXERR 

MIOERR 



; push error* 3 
io check routine 
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08F4I 






, 








07C4* 


0130 












08F4I 


6000 


iKlfciitiii 


MIOERR 


BRA 


lOCHK 




OSFSi 
















08F8I 










MGOTOXY 


-- gotoxy 




08F8I 
















07C8* 


0130 












08F8I 


307C 


ODOO 


MGOTOXY 


MOVE. M 


«$D00, AO 




08FCI 


321F 






MOVE. M 


(A7)+,D1 
(A7)+,D0 




08FEI 


301F 






MOVE. W 




09001 


3428 


0018 




MOVE. M 


$18{A0),D2 




09041 


5342 






SUB.W 


«1,D2 




09061 


BO 42 






CMP.W 


02, DO 


- 


09081 


6F** 






BLE.S 


01 




090AI 


3002 






MOVE. W 


D2,D0 




0908* 


02 












090CI 


4A40 




91 


TST.W 


DO 




090EI 


6A** 






BPL. S 


92 




09101 


4240 






CLR.W 


DO 




090E* 


02 












09121 


3428 


0016 


®2 


MOVE. M 


$16(A0),D2 




09161 


5342 






SUB.W 


«1,D2 




09181 


B242 






CMP.W 


D2,D1 




091AI 


6F** 






BLE.S 


93 




091CI 


3202 






MOVE. W 


D2,D1 




091A* 


02 












091EI 


4A41 




iB3 


TST.W 


Dl 




09201 


5A** 






BPL.S 


94 




09221 


4241 






CLR.W 


Dl 




0920* 


02 












09241 


243C 


OOIB 3D00 


94 


MOVE. L 


«$1B3D00,D2 




092AI 


1401 






MOVE. B 


D1,D2 




092CI 


0602 


0020 




ADD.B 


#$20, D2 




PAGE 


- 31 


MONITOR 


FILE: MONBEGN 


.TEXT 






09301 


E18A 






LSL.L 


«8,D2 




09321 


1400 






MOVE. B 


D0,D2 




09341 


0602 


0020 




ADD.B 


«$20,D2 




09381 


2F02 






MOVE. L 


D2,-(A7) 




093AI 


20 4F 






MOVE. L 


A7,A0 




093CI 


487A 


itiiK 1)141 




PEA 


95 




09401 


3F3C 


0002 




MOVE.W 


#2,-(A7) 




09441 


2F08 






MOVE. L 


A0,-(A7) 




09461 


3F3C 


0004 




MOVE.W 


«4, -(A7) 




094AI 


4267 






CLR.W 


:i:^! 




094CI 


4267 






CLR.W 




094EI 


6000 


«>•>«« 




BRA 


U WRITE 




093E* 


0014 












09521 


4A9F 




95 


TST.L 


(A7)* 




09541 


4E75 






RTS 






09561 
















09561 










FUNCTION GETMTBLfDEV: INTEGER ): LONGINT 




09561 
















09561 










stack: 






09561 










10 


function result 




09561 










8 


device number 




09561 










4 


return address 




09561 













Old A6 




09561 
















09561 


4E56 


0000 


GETMTBL 


LINK 


A6,#0 




095AI 








GETDTBL 


AO 




095AI 


206D 


FF88 


» 


MOVE. L 


-120(A5),A0 




095EI 


302E 


0008 




MOVE. W 


8(A6),D0 




09621 


EB48 






LSL.W 


«DEVNSHF,DO 




09641 


2D70 


0014 OOOA 




MOVE. L 


DEVMTBL(AO, DO. W ), 10(A6 ) 




096AI 


4E5E 






UNLK 


A6 




096CI 


205F 






MOVE. L 


(A7)+, AO 




096EI 


544F 






ADD.W 


#2, A7 




09701 


4ED0 






JMP 


(AO) 




09721 
















09721 










FUNCTION GETBASEfDEV: INTEGER ): LONGINT 




09721 
















09721 










stack: 






09721 










10 


function result 




09721 










8 


device number 




09721 










4 


return address 




09721 













Old A6 




09721 
















09721 


4E56 


0000 


GETBASE 


LINK 


A6, «0 




09761 








GETDTBL 


AO 




09761 


206D 


FF88 


« 


MOVE. L 


-120(A5 ), AO 




097AI 


302E 


0008 




MOVE. W 


8(A6),D0 




097EI 


EB48 






LSL.W 


WDEVNSHF, DO 




09801 


2D70 


0010 OOOA 




MOVE. L 


DEVBASE(AO, DO.W), 10(A6) 




09861 


4E5E 






UNLK 


A6 




09881 


205F 






MOVE. L 


(A7)+, AO 




098AI 


544F 






ADD.W 


#2,A7 




098CI 


4ED0 






JMP 


(AO) 




098EI 






; 








098EI 






; 








PAGE 


- 32 


MONITOR 


FILE: MONBEGN 


.TEXT 






098EI 














098EI 


0839 


0002 OOFC 


F801 NEWTMPl 


BTST 


#2,i;FCF801 ; test for 60hz 


interrupt 


, 
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' 














' 


0996 


66** 








BNE. S 


N0T60HZ 




0998 








DECRTOW 


DECDTOW 




decrement the time out word 


0998 


536D 


FF80 




« 


SUB.W 


»1,-128(A5) 




099C 


66** 








BNE. S 


N0T60HZ 




099EI 


487A 


**»* 






PEA 


QUITDSK 




09A2I 


2F5F 


0002 






MOVE. L 


(A7)+,2(A7) 


if time out then fudge return address 


099C 


* 08 














0996 


* OE 














09A6I 


2F12 






N0T60HZ 


MOVE. L 


(A2),-(A7) 




09A8I 


4E75 








RTS 




goto old level handler 


09AAI 


















09AAI 


















09AAI 


















09A0 


* OOOA 






-.-w ^„ . .-, 








09AAI 


2C6A 


0004 




QUITDSK 


MOVE. L 


4(A2),A6 


restore the stack frame 


09AEI 


2E4A 








MOVE. L 


A2,A7 


and cut the stack back 


09B0I 


40C0 








MOVE 


SR.DO 




09B2I 


46FC 


2700 






MOVE. N 


#$2700, SR 




09B6I 


21DF 


0064 






MOVE. L 


{A7)+,$64 


restore old level 1 handler 


09BAI 


4A9F 








TST.L 


,'A7i* 


discard saved A6 


09BCI 


46C0 








MOVE 


DO.SR 




09BEI 


536E 


FFFE 






SUB.M 


«1,-2(A6) 


decrement counter 


09C2I 


67** 








BEQ. S 


01 


quit if zero 


09C4I 


302E 


0008 






MOVE. M 


8(A6),D0 




09C8I 


EB48 








LSL.W 


»DEVNSHF, DO 




09CAI 










GETDTBL 


AO 




09CAI 


206D 


FF88 




« 


MOVE, L 


-120(A5),A0 




09CEI 


43FA 


**** 






LEA 


PJMPTBL, Al 


time out a Profile with headers 


09D2I 


B3F0 


0018 






CMP.L 


DEVJTBL(AO,DO.W), Al 




09D6I 


6700 


**** 






BEQ 


RDMTLP 




09DAI 


43FA 


itcitl»tit( 






LEA 


NJMPTBL, Al 


time out a Profile without headers 


09DEI 


B3F0 


0018 






CMP.L 


DEVJTBL(AO,DO.W), Al 




09E2I 


6700 


mitotiDc 






BEQ 


RDMTLP 




09C2 


« 22 














09E6I 


0C6E 


0003 


0008 


®1 


CMP.W - 


#3,8{A6) 


, Bui It in port ? 


09ECI 


66** 








BNE.S 


(92 




09EEI 


4280 








MOVE. L 


#0,D0 




09F0I 










TRAPTO 


108 


yes, set port free 


09F0I 


2F07 






« 


MOVE. L 


07, -(SP) 




09F2I 


3E3C 


006C 




# 


MOVE. M 


#108, D7 




09F6I 


4E45 






« 


TRAP 


#5 




09F8I 


2E1F 






^- 


MOVE. L 


(SP)*,D7 




09EC 


* OC 












09FAI 


6000 


**** 




®2 


BRA 


REINITJ 




09FEI 


















09FEI 












PROCEDURE RDMTABL{SETWORK: BOOLEAN; DEV: INTEGER) | 


09FEI 


















09FEI 












test for hard disk, setup device 


table and setup the mount table 


09FEI 


















09FEI 












stack: 






09FEI 












10 


set uork ing device 




09FEI 












8 


device number 




09FEI 












4 


return address 




PAGE 


- 33 


MONITOR 


TILE: MONBEGN 


.TEXT 






09FEI 













Old A6 




09FEI 












-2 


counter 




09FEI 












-514 


buffer 




09FEI 


















0820 


* OlDE 














09FEI 


4E56 


FDFE 




RDMTABL 


LINK 


A6,#-514 




0A02I 


204F 








MOVE. L 


A7,A0 




0A04I 


303C 


0100 






MOVE. W 


«DSKBLK/2, DO 




0A08I 


4258 






®1 


MOVE. W 


#0, (A0) + 


initialize the mount table 


OAOAl 


5340 








SUB.W 


»1,D0 




OAOCt 


66FA 








BNE.S 


@1 




OAOEl 


0C6E 


0001 


0008 




CMP.W 


«1,8(A6) 




0A14I 


6700 


**** 






BEQ 


SETTWGY 




0A18I 


0C6E 


0002 


0008 




CMP.W 


»2,8(A6) 




OAIE 


6700 


IKHOKIK 






BEQ 


SETTWGY 




0A22 


42 A7 








CLR.L 


-(A7) 




0A24I 


3F2E 


0008 






MOVE. W 


8(A6), -(A7) 


push device number 


0A28I 


6100 


FF48 






BSR 


GETBASE 




0A2CI 


201F 








MOVE. L 


(A7)+,D0 


see if ptr to the port is zero 


0A2EI 


6700 


***# 






BEQ 


MVMTABL 




0A32I 


47FA 


FF5A 






LEA 


NEWTMPl, A3 


and load A3 with Otemp handler 


0A36I 


2F0E 








MOVE. L 


A6,-(A7) 


save A6 


0A38 


2F38 


0008 






MOVE. L 


$8,-(A7) 


save exception vector 3 


0A3C 


244F 








MOVE. L 


A7, A2 


save A7 for trap to NOCARD 


0A3E 


41FA 


**** 






LEA 


NOCARD, AO 


set exception vector 


0A42 


21C8 


0008 






MOVE. L 


A0,$8 




0A46 


0C6E 


0007 


0008: 




CMP.W 


»7, 8(A6) 


] 


0A4C 


67** 








BEQ. S 


(32 




0A4E 


42A7 








CLR.L 


-fA7) 


allocate space for disk size 


0A50 


3F2E 


0008 






MOVE. W 


8(A6),-(A7) 


push device number 


0A54 


6100 


*««* 






BSR 


CDSKINIT 


for pippin and corvus 


0A58 


4A9F 








TST.L 


(A7)* 


discard disk size 


0A5A 


60** 








BRA.S 


(i3 




0A4C 


* OE 














0A5C 


6100 


iKDotlitt 




02 


BSR 


MDSKRES 


for marksman 


0A5A 


* 04 














0A60 


21DF 


0008 




03 


MOVE. L 


(A7) + ,$8 


restore exception vector 3 


0A64 


2C5F 








MOVE. L 


(A7 ) + , A6 


restore A6 


0A66 








; WHAT 


DO WE DO 


IF INTERRUPTS ARE SHUT 0( 


-F AND WE CAN'T ABORT THE DISK READ ??? 


0A66 


3F2E 


0008 








MOVE. W 


3(A6),-(A7) 


push device number 
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0A6AI 


6100 


**** 




'■z.^m 


BSR 


SETHDSK 


set up ptr to driver jump table 


0A6EI 








RDMTINIT 






0A6EI 


3D7C 


0004 


FFFE 




MOVE. W 


#4, -2(A6) 


set counter 


09E4* 


0090 














09D8* 


009C 














0A74I 








RDMTLP 








0A74I 


220F 








MOVE. L 


A7,D1 


save address of buffer 


0A76I 


302E 


0008 






MOVE. W 


8(A6),D0 




0A7AI 


6100 


**** 






BSR 


GETJTBL 


get devjtbl ptr 


0A7EI 










PUTDTOW 


#60 


setup disk time out uord 1.0 second 


0A7EI 


3B7C 


003C 


FF80 


« 


MOVE. W 


#60, -128(A5) 




0A84I 


43FA 


Di^HciK 






LEA 


MJMPTBL, Al 




0A88I 


B1C9 








CMP.L 


Al.AO 


if marksman then 


0A8A| 


66** 








BNE.S 


(SI 




0A8CI 










PUTDTOW 


#120 


setup disk time out uord 2.0 second 


PAGE 


- 34 


MONITOR 


FlLp MONBEGN 


.TEXT 






0A8CI 


3B7C 


0078 


FF80 


# 


MOVE. M 


«120,-128(A5) 




0A8A* 


06 














0A92I 


2F0E 






91 


MOVE. L 


A6, -(A7) 


save A6 


0A94| 


2F38 


0064 






MOVE. L 


$64, -(A7) 


save old level 1 handler 


0A98I 


244F 








MOVE. L 


A7,A2 


save A7 for trap to QUITDSK 


0A9AI 


40C0 








MOVE 


SR,DO 




0A9CI 


46FC 


2700 






MOVE. M 


#$2700, SR 




OAAOl 


21CB 


0064 






MOVE. L 


A3, $64 


setup temp handler for level 1 


0AA4| 


46C0 








MOVE 


DO,SR 




0AA6I 


4267 








CLR.W 


-(A7) 


allocate RC 


0AA8I 


2F0F 








MOVE.L 


A7,-(A7) 


push (SRC 


OAAAi 


3F3C 


0001 






MOVE. M 


#1, -(A7) 


push drv 


OAAEl 


2F3C 


0000 


0001 




MOVE. L 


#1, -(A7) 


push block count 


0AB4I 


302E 


0008 






MOVE. M 


8(A6),D0 


get device number 


0AB8I 


E148 








LSL.W 


#8, DO 




OABAl 


4840 








SWAP 


DO 




OABCl 


303C 


0007 






MOVE. W 


#7, DO 


fill inblock number 


OACOl 


2F00 








MOVE.L 


DO, -(A7) 
Dl, -(A7) 


push dev# and block# 


0AC2| 


2F01 








MOVE. L 


push Sbuffer 


0AC4I 


6100 


*J|c*^ft 






BSR 


DSKREAD 


read the mount table 


0AC8I 


321F 








MOVE. W 


(A7)+,D1 


save RC 


OACAl 


40C0 








MOVE 


SR.DO 




OACCi 


46FC 


2700 






MOVE.W 


#$2700, SR 




OADOl 


21DF 


0064 






MOVE. L 


(A7)+,$64 
1 A7)*,A6 


restore old level 1 handler 


0AD4I 


2C5F 








MOVE. L 


restore A6 


0AD6I 


46C0 








MOVE 


DO.SR 




0AD8I 


4A01 








TST.B 


01 


test RC 


OADAl 


6B00 


>K>t<*>|l 






BMI 


REINIT 




OADEl 


302E 


0008 






MOVE. M 


8(A6),D0 




0AE2I 


EB48 








LSL.W 


#DEVNSHF, DO 




0AE4I 










GETDTBL 


Al 




0AE4| 


226D 


FF88 




« 


MOVE. L 


-120(A5),A1 




0AE8I 


43F1 


0000 






LEA 


DEVNAME(A1,D0.W),A1 


address of device n 


OAECl 


41EF 


0038 






LEA 


$40-8(A7),A0 


address of name 


OAFOl 


0210 


0007 






AND.B 


#7, (AO) 




0AF4I 


66** 








BNE.S 


CHKBLK7 


make length(dev icename ) 1..7 


0AF6I 


lOBC 


0001 






MOVE. B 


#1, (AO) 




0AF4* 


04 














OAFAl 


42A7 






CHKBLK7 


CLR.L 


-(A7) 
8(A6),-(A7) 




OAFCl 


3F2E 


0008 






MOVE.W 


push device number 


OBOOl 


6100 


DototliK 






BSR 


HDSKINIT 




0B04| 


261F 








MOVE. L 


(A7)+,D3 


save disk size 


0B06I 


4267 








CLR.W 


8(A6),-(A7) 




OB08I 


3F2E 


0008 






MOVE. W 




OBOCi 


6100 


**** 






BSR 


HDSKCSZ 




OBlOl 


301F 








MOVE. W 


(A7)+,D0 




0B12I 


EOAB 








LSR.L 


D0,D3 


divide disk size by cluster size 


0B14I 


204F 








MOVE. L 


A7, AO 




0B16I 


303C 


0100 






MOVE. W 


#$100, DO 


index to start of voltable 


OBlAl 


DOCO 








ADD. W 


DO, AO 




OBlCl 


3218 






LOOPVOL 


MOVE. W 


(A0)*,D1 


get start uiord 


OBlEi 


3401 








MOVE. W 


D1,D2 




0B201 


0241 


EOOO 






AND. W 


»$E000,D1 


exit if drv = 


0B24| 


67** 








BEQ.S 


BREINIT 




0B26I 


0C41 


EOOO 






CMP. W 


#$E000,D1 


exit if end of table 


PAGE 
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MONITOR 


FILE: MONBEGN 


.TEXT 






0B2AI 


67** 








BEQ.S 


CHKMTBL 




0B2CI 


0C41 


4000 






CMP. W 


#$4000, Dl 




0B301 


62** 








BHI.S 


BREINIT 


exit if drv > 4 


0B32I 


0242 


IFFF 






AND.W 


»$1FFF,D2 




0B36I 


67** 








BEQ.S 


BREINIT 




0B38I 


B443 








CMP. W 


D3,D2 




0B3AI 


62** 








BHI. S 


BREINIT 




0B3CI 


3218 








MOVE. W 


(A0) + ,D1 


get stop uord 


0B3EI 


3801 








MOVE.W 


D1,D4 




0B40I 


0241 


EOOO 






AND. W 


«$E000,D1 


ok if top3 = 


0B44| 


67** 








BEQ.S 


(SI 




0B46I 


0C41 


8000 






CMP. W 


#$8000, Dl 


ok if top3 = 4 


0B4AI 


66** 








BNE.S 


BREINIT 




0B44* 


06 














0B4CI 


0244 


IFFF 




ml 


AND.W 


»$1FFF,D4 




0B50I 


67** 








BEQ.S 


BREINIT 




0B52I 


B843 








CMP. W 


D3,D4 




0B54I 


62** 








BHI. S 


BREINIT 




0B56I 


B444 








CMP. W 


D4, D2 


compare start and stop 


0B58I 


62** 








BHI.S 


BREINIT 


, J 
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Page 022 



OBSAl 

0B5CI 

0B60I 

0B58* 

0854* 

0B50* 

0B4A* 

0B3A* 

0B36* 

0B30* 

0B24* 

0B62I 

0B2A* 

0B64I 

0B68I 

0B6AI 

0B6EI 

0B68* 

0B70I 

0B74I 

0B76I 

0B7CI 

0B80I 

0B82I 

0B84i 

0B86I 

0B80* 

0B8d| 

0B8AI 

0B8CI 

0B90I 

0B92I 

0B98I 

0B9AI 

0B90* 
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5840 

0C40 

66BA 

08 

OC 

10 

16 

26 

2A 

30 

3C 

60** 

38 

4A2E 

67** 

0C40 

67F2 

06 

41EF 

4242 

283C 

6100 

66** 

4A98 

66** 

60** 

06 

2018 

67** 

0C42 

66** 

0C80 

60** 
OA 
• 36 



0200 



ADD. W #4, DO 
CMP.W #$200,00 
BNE. S LOOP VOL 



OOOA 
0100 

0040 
EOOO 0000 

DutciKHc 



0004 
FFFF 0000 



MONITOR FILE: MONBEGN. TEXT 



BREINIT 


BRA.S 


BREINI2 


CHKMTBL 


TST.B 


10(A6) 




BEQ.S 


91 




CMP.W 


«$100,D0 




BEQ.S 


BREINIT 


91 


LEA 


$40(A7), AO 




CLR.W 


02 




MOVE. L 


«$E0000000,D4 


LOOPTBL 


BSR 


UNITISB 




BNE. S 


91 




TST.L 


(AO)* 




BNE. S 


BREINI2 




BRA.S 


LOOPEND 


91 


MOVE. L 


(AO)+,DO 




BEQ.S 


LOOPEND 




CMP.W 


#4,D2 




BNE.S 


92 




CMP.L 


«$FFFFOOOO, DO 




BNE.S 


BREINI2 




BRA. S 


LOOPEND 



if setuork then 

exit if volume table is empty 



unit: =0 
load mask 
repeat 

if not un it isb locked(un it ) then 
exit if mtbl(unit) <> 0000 0000 



e IsE 



if mtbl(unit) <> 0000 0000 then 
if un i t = 4 then 

exit if mtbl(unit) <> FFFF 0000 
e Ise 



0B9CI 

OBAOl 

0BA2I 

0BA4I 

0BA6I 

0BA8I 

OBAAl 

0B98* 

0B84* 

0B62* 

OBACi 

0BA4* 

0B9A* 

0B8A* 

0B86* 

OBBOl 

0BB2I 

0BB6I 

06B8I 

OBBCl 

OBBEl 

OBBEl 

0BC2I 

0BC6I 

OBCAi 

OBCCi 

OBDOl 

0BD4I 

0BD6| 

0BD6I 

OBDAi 

OBDCl 

OBDEl 

0BD4* 

0BE2I 

0A20* 

0A16* 

0BE6I 

OBEAi 

OBECl 

OBFOl 

0BF2I 

0BF2I 

0BF6I 

OBFAl 

OCOOl 

0C06I 

OCOAi 

OCOEl 

OClOl 

0C12I 

0C16I 

0C18I 

OClCl 

OClEl 
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43EF 0100 

2219 

B081 

67** 

C284 

B284 

66F4 

12 

26 

48 

6000 **** 

OA 

14 

24 

28 

5242 

0C42 0015 

66C4 

302E 0008 

EB48 

226D FF88 
43F1 0000 
41EF 0038 
2298 

2358 0004 
4A2E OOOA 
67** 

206D FF88 

7007 

20D9 

51C8 FFFC 

OC 

6000 **** 

01C6 

OlDO 

302E 0008 

3200 

0641 0030 

EB48 

206D FF88 

43F0 0000 

22BC 0644 5249 

337C 5645 0004 

1341 0006 

342E 0008 

4882 

E98A 

2238 0148 

9282 

2341 0018 

2F09 

42A7 

37 MONITOR 



92 


LEA 


$100(A7), Al 


93 


MOVE. L 


(A1)+,D1 




CMP.L 


Dl.DO 




BEQ.S 


LOOPEND 




AND. L 


D4,D1 




CMP.L 


D4,D1 




BNE.S 


93 



BREINI2 BRA 



92 



BRA 



FILE: 



SETTWGY MOVE. W 
MOVE. W 
ADO. W 
LSL. W 
GETDTBL 
» MOVE. L 
LEA 

MOVE. L 
MOVE. W 
MOVE. B 
MOVE. W 
EXT. W 
LSL.L 
MOVE. L 
SUB.L 
MOVE. L 
MOVE.L 
CLR.L 
MONBEGN. TEXT 



REINIT 



beg in 

get next voltable entry 

if voltb l<>mtbl(un it ) then 

exit if end of voltable 



end 



LOOPEND ADD.W 
CMP.W 
BNE 

VALIDB7 MOVE.W 
LSL.W 
GETDTBL 
» MOVE. L 
LEA 
LEA - 

CPYDEVN MOVE. L 
MOVE. L 

CPYDEVE TST.B 
BEQ.S 
GETDTBL 
# MOVE. L 
MOVE.L 

91 MOVE. L 
DBF 



#1,D2 
#21, D2 
LOOPTBL 
8(A6),D0 
•DEVNSHF, DO 
Al 

-120(A5),A1 
DEVNAME(A1,D0.W),A1 
$40-8(A7),A0 

A0U,(A1) 
(A0)+,4(A1) 
10(A6) 
92 
AO 

-120(A5),A0 
»DNTRYSZ/4-l,D0 
(Al )+, (A0)+ 
00,91 

MVMTABL 



8(A6 ),D0 
DO.Dl 
»$30,D1 
«DEVNSHF, DO 
AO 

-120(A5),A0 
0(A0,D0.W), Al 
«$06445249, (Al 
#$5645, 4(A1 ) 
D1,6(A1 ) 
8(A6 ),D2 
D2 

«4,D2 
$148, Dl 
D2,D1 

D1,DEVJTBL(A1 ) 
A1,-(A7) 
-(A7) 



un it: =un it + 1; 
until unit=21; 



address of device n 

address of name 

copy device name into device table 

if setuork then 
beg in 

address of device 



copy entry from dev# n to dev* 
end 

make device number into ascii 

set device name to 6 DRIVEx 

device number times 16 



set up jump table ptr 
save address of device n 
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TPR:M0N11.TEXT 
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0C20I 


3F2E 


0008 




W)VE.M 


8{A6),-(A7) 






0C24I 


6100 


>tlllc«iK 




BSR 


HDSKINIT 






0C28I 


201F 






MOVE.L 


(A7)+,D0 






0C2AI 


0080 


2000 0000 




OR. L 


«$20000000,D0 






0C30I 


41EE 


FDFE 




LEA 


-514(A6),A0 






0C34I 


DOFC 


0040 




ADD.N 


#$40, AO 






0C38I 


2140 


0014 




MOVE.L 


D0,20(A0) 




, start=0, stop=1582 


0C3CI 


225F 






MOVE. L 


(A7)+, Al 




; restore address of device n 


0C3EI 


4A2E 


OOOA 




TST.B 


10(A6) 




; if setuiork then 


0C42I 


67** 






BEQ.S 


(31 






0C44| 


302E 


0008 




MOVE.W 


8(A6),D0 






0C48I 


5340 






SUB.W 


#1,D0 






0C4AI 


8038 


01B3 




CMP.B 


BOOTDVC.DO 




if device-1 = bootdyc then 


0C4EI 


6780 






BEQ.S 


CPYDEVE 




go copy device n to device 


0C42* 


OC 














OCSOl 


60** 




SI 


BRA. S 


MVMTABL 






0C52I 


43FA 


>ti>K>tc>K 


TRYNJMP 


LEA 


NJMPTBL, Al 




set up for a Profile without headers 


0C56I 


2189 


0018 




MOVE. L 


A1,DEVJTBL(A0, 


DO.W) 




OCSAl 


6000 


FE12 




BRA 


RDMTINIT 






OBAE* 


OOBO 














OADC* 


0182 














OCSEi 


302E 


0008 


REINIT 


MOVE. M 


8{A6),D0 






0C62I 


EB48 






LSL.W 


#DEVNSHF, DO 






0C64I 








GETDTBL 


AO 






0C64I 


206D 


FF88 


» 


MOVE. L 


-120(A5),A0 






0C68I 


43FA 


***« 




LEA 


PJMPTBL, Al 




did uie fail a Profile with headers 


0C6CI 


B3F0 


0018 




CMP.L 


DEVJTBL(A0,D0. 


W),A1 




0C70I 


67E0 






BEQ.S 


TRYNJMP 






0C72I 


302E 


0008 


REINITJ 


MOVE. M 


8(A6),D0 






0C76I 


EB48 






LSL.W 


WDEVNSHF, DO 






0C78I 








GETDTBL 


AO 






0C78I 


206D 


FF88 


« 


MOVE. L 


-120(A5),A0 






0C7CI 


72FF 






MOVE. L 


»-l,Dl 






0C7E1 


2181 


0018 




MOVE. L 


D1,DEVJTBL(A0, 


DO.W) 


unmount, in it jump table ptr 


0C82I 


20 4F 






MOVE. L 


A7,A0 






0C84I 


303C 


0100 




MOVE. W 


«DSKBLK/2, DO 






0C88I 


4258 




92 


MOVE. W 


»0,(A0)* 




re- in it the mount table 


0C8AI 


5340 






SUB.kl 


«1,D0 






0C8CI 


66FA 






BNE.S 


@2 






0C50* 


3C 














0BE4* 


OOAA 














0A30* 


025E 














0C8EI 


42A7 




MVMTABL 


CLR.L 


8(A6),-(A7) 






0C90I 


3F2E 


0008 




MOVE. W 




push device number 


0C94I 


6100 


FCCO 




BSR 


GETMTBL 






0C98I 


2257 






MOVE. L 


(A7),A1 




copy Smtbl into Al 


0C9AI 


41EE 


FDFE 




LEA 


-514(A6),A0 






0C9EI 


DOFC 


0040 




ADD.N 


«*40, AO 






0CA2| 


303C 


002A 




MOVE. M 


#MTBLSI2/2,D0 






0CA6I 


32D8 




01 


MOVE. N 


(A0)+, (Al)* 




copy mount table into heap 


0CA8I 


5340 






SUB.M 


«1,D0 






OCAAl 


66FA 






BNE.S 


®1 






OCACI 


225F 






MOVE. L 


{A7)+,A1 




pop Smtbl into Al 


OCAEi 


4AB8 


0144 




TST.L 


$144 






0CB2I 


67** 






BEQ.S 


@2 
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MONITOR FILE: HONBEGN 


.TEXT 








0CB4( 


237C 


FFFF 0000 0010 


MOVE. L 


«$FFFF0000, 16 ( 


Al) 


make MEMORY: be «4: 


OCBCl 


60** 






BRA.S 


03 






0CB2* 


OA 














OCBEl 


42A9 


0010 


®2 


CLR.L 


16(A1) 






OCBC* 


04 














0CC2I 


4E5E 




i®3 


UNLK 


A6 






0CC4I 


2E9F 




' *■ 


MOVE. L 


(A7)*,(A7) 




delete 4 bytes 


0CC6I 


4E75 




RTS 








0CC8I 
















0CC8I 








Trap to 


here if no PIA 






0CC8I 
















0A40* 


0288 














0CC8I 


2E4A 




NOCARD 


MOVE. L 


A2,A7 




cut back stack 


OCCAl 


2 IDF 


0008 




MOVE. L 


(A7)+,$8 
(A7)+,A6 




restore exception vector 3 


OCCEl 


2C5F 






MOVE. L 




restore A6 


OCDOl 


60BC 






BRA.S 


MVMTABL 






0CD2I 
















0CD2I 








GETRDIR 


-- GET ROOT VOLUME AND It 


JITIALIZE SYVID AND DKVID 


0CD2I 
















0CD2I 








-26 


days: array [0. 


.12] of inl 


;eger 


0CD2I 








-30 


heaptop 






0CD2I 
















0CD2I 


4E56 


FFE2 


GETRDIR 


LINK 


A6,»-30 






0CD6I 








GETNP 


-30(A6) 




mark( heahtop ) 


0CD6I 


2D6D 


FFF4 FFE2 


» 


MOVE. L 


-12(A5 ), -30(A6) 




OCDCl 








GETSYSC 


AO 






OCDCl 


206D 


FFFC 


» 


MOVE. L 


-4(AS),A0 
SYSUNT(AO), D2 






OCEOl 


1428 


0001 




MOVE.B 






0CE4I 


4882 






EXT. W 


02 






0CE6I 


6100 


**** 




BSR 


FTCHDIR 




get directory 


OCEAl 


4A06 






TST.B 


D6 






OCECl 


67** 






BEQ.S 


01 






OCEEl 


3F3C 


0005 




MOVE. W 


#5,-(A7) 




push error* 5 


0CF2I 


6000 


FBCO 




BRA.S 


INDXERR 






OCEC* 


08 














0CF61 


204A 




®1 


MOVE. L 


A2, AO 






0CF8I 








ADDRTHD 


Al 




initialize thedate 


0CF8I 

!■ 


43ED 


FFCA 


tt 


LEA 


-54(A5 ),A1 







28 Sep 


82 




OCFCl 


32A8 


0014 


ODOOl 


43E8 


0006 


0D04I 






0D04I 


206D 


FFD4 


0D08I 


20D1 




ODOAl 


20E9 


0004 


ODOEl 






ODOEl 


206D 


FFCC 


0D12I 


20D1 




0D14I 


20E9 


0004 


0D18I 






0D18I 






ODlSl 


2F07 




ODlAi 


3E3C 


0050 


ODlEl 


4E45 




0D20I 


2£1F 




0D22I 


4A44 
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0D24I 


63 ■•oil 




0D26I 


4A43 




0D28I 


66** 




002AI 


4A42 




0D2CI 


66** 




0D2EI 


0C41 


0001 


0D32I 


66** 




0D34I 


0C40 


07BC 


0D38I 


67** 




0D32* 


06 




0D2C* 


OC 




0D28* 


10 




0D24* 


14 




0D3AI 


41EE 


FFE6 


0D3EI 


2248 




0D40I 


4259 




0D42I 


32FC 


OOIF 


0D46I 


32FC 


OOIC 


0D4AI 


32FC 


OOIF 


0D4EI 


32FC 


OOIE 


0D52I 


32FC 


OOIF 


0D561 


32FC 


OOIE 


0D5AI 


32FC 


OOIF 


0D5EI 


32FC 


OOIF 


0D62I 


32FC 


OOIE 


0D66I 


32FC 


OOIF 


006AI 


32FC 


OOIE 


0D6EI 


32FC 


OOIF 


0D72| 


0440 


076C 


0D76I 


3400 




0D78I 


0242 


0003 


0D7CI 


66** 




0D7EI 


3D7C 


OOID FFEA 


0D7C* 


06 




0D84| 


4242 




0D86I 






0D86I 


5442 




0D88I 


0C42 


OOIA 


0D8CI 


67** 




0D8EI 


9270 


2000 


0D92I 


6EF2 




0D94I 


D270 


2000 


0D98I 


E24A 




0D9AI 


E949 




0D9CI 


0441 




0D9EI 


E148 




ODAOl 


E348 




0DA2I 


D440 




0OA4I 






0DA4| 


43ED 


FFCA 


0DA81 


3282 




ODAAI 






0D8C* 


IC 




0D38* 


70 




ODAAl 


2B6E 


FFE2 FFF4 
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MONITOR 


ODBOl 


4E5E 




0DB2| 


4E75 




0DB4I 






0DB4I 






0DB4I 






0DB4| 






0DB4| 






0DB4| 






0DB4| 






0DB4I 






0DB4I 






0DB4I 






0DB4I 






0DB4I 






0DB4| 






0DB4| 






0DB4I 






0DB4I 







TPR:MONH.TEXT 



Paga 024 



FILE: 





MOVE. W 


DLASTBT(AO), (Al) 
DVID(AO), Al 




LEA 




GETSYV 


AO 


» 


MOVE. L 


-44(A5),A0 




MOVE. L 


(Al), (AO)* 




MOVE. L 


4(A1), (A0)+ 




GETDKV 


AO 


« 


MOVE.L 


-52(A5),A0 




MOVE. L 


(Al), (A0)+ 




MOVE. L 


4(A1), (A0)+ 


' 


TRAPTO 


80 


u 


MOVE. L 


07, -(SP) 


» 


MOVE. M 


#80, D7 


« 


TRAP 


#5 


« 


MOVE. L 


(SP)*,D7 




TST.W 


04 


MONBEGN 


.TEXT 






BNE. S 


92 




TST.W 


D3 




BNE. S 


1112 




TST.W 


D2 




BNE.S 


®2 




CMP.W 


«1,D1 




BNE.S 


92 




CMP.W 


»1980,00 




BEQ.S 


95 



; initializa syvid 



; init ia 1 ize dkv id 



92 



LEA 
MOVE. L 
CLR.W 
MOVE. W 
MOVE. W 
MOVE. W 
MOVE. W 
MOVE. W 
MOVE. W 
MOVE. W 
MOVE. W 
MOVE. W 
MOVE. W 
MOVE. W 
MOVE. W 
SUB. W 
MOVE. W 
ANO.W 
BNE.S 
MOVE. W 



-26(A6),A0 
AO, Al 

(Al); 

«31, (Al 

#28, (Al 

#31, (Al 

«30, (Al 

#31, (Al 

#30, (Al 

«31,(A1 

«31, 

«30, 

#31, 

«30, (Al 

#31, (Al 

#1900, DO 

D0,D2 

«3,D2 

93 

#29, -22(A6) 



Al 
Al 
*A1 



93 



MOVE.W »0,D2 



94 ADD.W #2,D2 
CMP.W «26,D2 
BEQ. S 95 

SUB.W 0(A0,D2.W),D1 

BGT. S 94 

ADD.W 0(A0,D2.W),D1 

LSR.W «1,D2 

LSL.W »4,D1 

ADD.W D1,D2 

LSL.W »8,D0 

LSL.W «1,D0 

ADD.W D0,D2 

ADDRTHD Al 
» LEA -54(A5),A1 

MOVE.W 02, (Al 

95 PUTNP -30(A6 



if yaar mod 4=0 then days[2]:=29 



m: =0 
repeat 

m: =m+l 

if m=13 then exit 

d: =d-days[m ] 
until d<=0 
d: =d + days[in ] 
month is 1. . 12 
day is 1. . 31 

year is 0. . 99 



re lease (heap top ) 



tt MOVE. L 

FILE: MONBEGN. TEXT 



UNLK 
RTS 



■30(A6 ), -12(A5) 



A6 



. INCLUDE HARDDISK. TEXT 
FILENAME: HARDDISK 

PROCEDURE SETHDSK(DEV: INTEGER) 



stack 






8 


Oev ice 


number 


4 


Return 


address 





Old A6 





.J 
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0DB4| 






; Gets ca 


lied during boot to setup the DEVJTBL for each device 


1 


0OB4I 






; 






0A6C* 


0348 










0DB4| 


4E56 


0000 


SETHDSK LtMK 
CMP. W 


A6,#0 




ODBSl 


0C6E 


0007 OOOC 


#7,8(A6) 




ODBEl 


67** 


'" 


BEQ. S 


TRYMRK 




ODCOl 


42A7 




CLR.L 


-rA7) 

8{A6), -(A7) ; push device number 




0DC2I 


3F2E 


0008 


MOVE. M 




0DC6I 


6100 


FBAA 


BSR 


GETBASE 




ODCAl 


205F 




MOVE. L 


(A7U, AO 

IRB(AO),DO ; get the status port 




ODCCI 


1010 




TSTSTAT MOVE.B 




ODCEl 


0240 


0003 


AND. M 


#3, DO 




0DD2I 


DO 40 




ADD.W 


DO, DO 




0OD4I 


4EFB 


00** 


JMP 


STAT JMP (DO) 




0DD6* 


02 










0DD8I 


60F2 




STATJMP BRA.S 


TSTSTAT 


case 8: corvus off, pippin on the ujay 




ODDAl 


60F0 




BRA.S 


TSTSTAT 


case 9: corvus on the way 




ODDCl 


60** 




BRA.S 


TRYPIP 


case A: pippin off, pippin ready 




ODDEl 


60** 




BRA.S 


TRYCRV 


case B: cable disc, corvus ready 




ODBE* 


20 










ODEOl 


43FA 


**** 


TRYMRK LEA 


MJMPTBL, Al 




0DE4I 


60** 




BRA.S 


SETDISK 




ODDC* 


08 










0DE6I 


43FA 


m**m 


TRYPIP LEA 


PJMPTBL, Al 




ODEAl 


60** 




BRA.S 


SETDISK 




ODDE* 


OC 










ODECl 


43FA 


WHoXiti 


TRYCRV LEA 


CJMPTBL, Al 




ODEA* 


04 










0DE4* 


OA 










ODFOl 


302E 


0008 


SETDISK MOVE. W 


8(A6), DO 




0OF4I 


EB48 




LSL.W 


«DEVNSHF,DO 




0DF6I 






GETDTBL 


AO 




0DF6I 


206D 


FF%8 


« - MOVE. L 


~120(A5),A0 




ODFAl 


2189 


0018 


MOVE. L 


A1,DEVJTBL(A0,D0.W) 




ODFEl 


6000 


**** 


BRA 


INITXIT 




0E02I 






; 






0E02I 






GETJTBL 


moves the address of Jump table into AO for device number in DO 
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0E02I 












0E02I 






i GETJTBL 


returns to call+4 if address of jump table is negative 




0E02I 






•» 






0E02I 






GETJTBL GETDTBL 


AO 




0E02I 


2060 


FF88 


n MOVE. L 


-120(A5),A0 




0E06I 


EB48 




LSL.W 


•DEVNSHF, DO 




0E08I 


2030 


0018 


. MOVE.L 


DeVJTE!L(AO,DO.W),DO 




OEOCI 


6B** 




BMI.S 


@1 




OEOEl 


2040 




MOVE.L 


DO.AO 




OElOl 


4E75 




RTS 






OEOC* 


04 










0E12I 


205F 




ml MOVE. L 


(A7)+,A0 




0E14I 


5848 




ADD.W 


#4,A0 




0E16I 


4ED0 




JMP 


(AO) 




OElSt 






; 






0E18t 






, ; HARD DISK ENTRY POINTS 




0E18I 






; 






0C26* 


01F2 






. 




OElBl 






HDSKINIT "■ 

MOVE. W 






0E18I 


302F 


0004 


4(A7),D0 




OElCl 


61E4 




BSR 


GETJTBL 




OElEl 


4ED0 




JMP 


(AO) 




0E20I 


4E71 




NOP 






0E22I 






; error return 


from GETJTBL 




0E22I 


42AF 


0006 


CLR.L 


6(A7) 




0E26I 


60** 




BRA. S 


CSZEXIT 




0E28I 






DSkREAD ^ 

CtR.W 






0E28I 


4240 




DO 




0E2AI 


102F 


0008 


MOVE. B 


8(A7),D0 




0E2EI 


61D2 




BSR 


GETJTBL 




0E30I 


4EE8 


0004 


JMP 


4(A0) 




0E34I 






; error return 


from GETJTBL 




0E34I 


206F 


0012 


DISKERR MOVE.L 


18(A7), AO ; get (URC 

«$FF, (AO) ; indicate error 




0E38I 


30BC 


OOFF 


MOVE. M 




0E3CI 


6000 


AitlitlXi 


BRA 


DISKIOX 




0E40I 
0E40I 


4240 




DSKblET, w 


DO 




— ,.._;"■ -^'Ki^LR.W 




0E421 


102F 


0008 


MOVE. B 


8(A7),D0 




0E46I 


61BA 




BSR 


GETJTBL 




0E48I 


4EE8 


0008 


JMP 


8(A0) 




0E4CI 






; error return 


from GETJTBL 




0E4CI 


60E6 




_ ^RA. S 


DISKERR 




0E4EI 
0E4EI 


302F 


0004 


m^ii^sr^ 


4(A7),D0 




'• ilOVE. W 




0E52I 


61AE 




BSR 


GETJTBL 




0E54I 


4EE8 


OOOC 


JMP 


12(A0) 




0E58I 






; error return 


from GETJTBL 




0E58I 


426F 


0006 


CLR.W 


6(A7) 




0E5CI 


60** 




BRA.S 


CSZEXIT 




0E5EI 






; 






OESEl 






; CORVUS 


JUMP TABLE 




0E5EI 






; 






ODEE* 


0070 










OESEl 


6000 


>K>t(>K>t( 


CJMPTBL BRA 


CDSKINIT 




0E62I 


6000 


UtiHUt^ 


BRA 


CDSKREAD 
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TPR:M0N11.TEXT 



Page 026 



0E66I 


6000 


iKW** 




BRA 


CDSKWRT 




0E6AI 


6000 


**** 




BRA 


CDSKCSZ 




0E6EI 
















0E6EI 










• FUNCTION CDSKINIT(DEV: INTEGER ):LONGINT 




0E6EI 
















0E60* 


OOOE 












0E6EI 








CDSKINIT 






0E6EI 


4E56 


0000 




LINK 


A6,«0 




0E72I 


61** 






BSR. S 


PRTINIT 




0E74I 


2D7C 


0000 


52E4 


OOOA MOVE. L 


#21220, 10(A6) ; return disk size 




OEOO* 


007C 












0E7C| 


4E5E 






INITXIT UNLK 


A6 




0E5C* 


20 












0E26* 


56 












0E7EI 


205F 






CSZEXIT MOVE. L 


(A7)+,A0 




0E80I 


544F 






ADD.W 


»2,A7 




0E82I 


4ED0 






JMP 


(AO) 




0E64* 


0020 












0E84I 








CDSKREAD 






0E84I 


4;iFA 


**** 




LEA 


CDSKRD, AO 




0E88I 


6000 


**** 




BRA 


DISKIO ; go do Corvus disk read 




0E68* 


0024 












0E8CI 








CDSKWRT 






0E8CI 


4:iFA 


**** 




LEA 


CDSKWR, AO 




0E90I 


6000 


*>|l!)l* 




BRA 


DISKIO ; go do Corvus disk uirite 




0E6C* 


0028 












0E94I 








CDSKCSZ 






0E94I 


3F7C 


0003 


0006 


MOVE. M 


«3,6(A7) ; return cluster size ( ie shift 


count ) 


0E9AI 


60E2 






BRA 


CSZEXIT 




0E9CI 
















0E9CI 










PROCEDURE PRTINIT 




0E9CI 
















0E72* 


23 












0E9CI 


42A7 






PRTINIT CLR.L 


-U7| 




0E9EI 


3F2E 


0008 




MOVE. M 


8(A6), -(A7) ; push device number 




0EA2I 


6100 


FACE 




BSR 


GETBASE 




0EA6I 


205F 






MOVE. L 


(A7)+,A0 


get via base address 




0EA8I 


11 7C 


OOOA 


0060 


MOVE. B 


«$OA,PCR(AO) 


set Ctrl CA2 pulse mode strobe 


OEAEl 


4228 


0018 




MOVE. B 


«$00,DDRA(AO) 


set port A bits to input 




0EB2I 


lOBC 


0018 




MOVE. B 


«$18,0RB(A0) 


en=true, dir=in, cmd=false 




0EB6I 


117C 


007C 


0010 


MOVE. B 


«$7C,DDRB(A0) 


set port B bits 0. l,7=in, 2.3. 


4,5,6=o 


OEBCl 


4E7S 






RTS 






OEBEl 










■• 






OEBEl 










PROCEDURE DISKIO (VAR RC: INTEGER; 




OEBEl 












DRIVE: INTEGER; 




OEBEl 












BLKC0UNT:L0NGINT; 




OEBEl 












BLKNUMBER: LONG I NT; 




OEBEl 












VAR BUFFER); 




OEBEl 
















OEBEl 










Stack: 






OEBEl 
















OEBEl 












22 aiRC 




OEBEl 












20 Drive Number 




OEBEl 












16 Block Count 




OEBEl 












12 Block Number 
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OEBEl 










8 ©Buffer 




OEBEl 












4 Return Address 




OEBEl 












Old A6 




OEBEl 












-4 Count 




OEBEl 












-8 Blk 




OEBEl 












12 Addr 




OEBEl 












16 TempCount 




OEBEl 












20 Address of driver 




OEBEl 












22 Device number 




OEBEl 












26 Harduiare base for device 3 




OEBEl 












30 Hardware base for device n 




OEBEl 
















OEBEl 










Note: incoming block number is split into dev0 and blk# 




OEBEl 
















0E92* 


002C 












0E8A* 


0034 












OEBEl 


4E56 


FFE2 




DISKIO LINK 


A6,«-30 




0EC2I 


48E7 


7000 




MOVEM. L 


D1-D3, -(A7) 




0EC6I 


2D48 


FFEC 




MOVE. L 


AO, -20(A6 ) ; save address of driver 




OECAi 


4240 






CLR. W 


DO 




OECCi 


102E 


OOOC 




MOVE. B 


12(A6),D0 ; form device number 




OEDOi 


3D40 


FFEA 




MOVE. M 


D0,-22(A6) 




0ED4I 


42A7 






CLR.L 


-(A7) 




0ED6I 


3F00 






MOVE. N 


D0,-(A7) ; push device number n 




0ED8I 


6100 


FA98 




BSR 


GETBASE ; pushes hardware base 




OEDCl 


205F 


FFE2 




MOVE. L 


(A7)+, -30(A6) 




OEEOl 


42A7 






CLR.L 


-(A7) 




0EE2I 


3F3C 


0003 




MOVE. W 


«3,-(A7) ; push device number 3 




0EE6i 


6100 


FA8A 




BSR 


GETBASE ; pushes hardware base 




OEEAj 


201F 






MOVE. L 


(A7)+,D0 




OEECl 


2D40 


FFE6 




MOVE. L 


DO, -26^6 ) 




OEFOl 


BOAE 


FFE2 




CMP.L 


-30(A6),D0 ; Built in port ? 




0EF4I 


66** 






BNE.S 


®0 




0EF6I 


7001 






MOVE. L 


»1,D0 




0EF8I 








TRAPTO 


108 ; yes, set port busy 




OEFSi 


2F07 






n 


MOVE. L 


07, -(SP) 







28 Sep 


82 












TPR:M0N11.TEXT 




OEFAl 


3E3C 


006C 




« 


MOVE. M 


#108, 07 




OEFEl 


4E45 






# 


TRAP 


#5 




OFOOl 


2E1F 






# 


MOVE. L 


(SP) + ,D7 




0EF4* 


DC 














0F02I 


422E 


oooc 




®0 


CLR.B 


12(A6) 


; make block number valid 


0F06I 


2D6E 


0010 


FFFC 




MOVE. L 


16(A6), -4(A6) 


; count: =b lockcount 


OFOCi 


2D6E 


oooc 


FFF8 




MOVE.L 


12(A6),-8(A6) 


; b Ik: =blocknumber 


0F12I 


2D6E 


0008 


hh(-4 




MOVE. L 


8(A6), -12 A6) 


; addr: =®buf fer 


OFlBl 


4AAE 


FFFC 




01 


TST.L 


-4(A6) 


; while count do 


OFlCl 


67** 








BEQ. S 


®2 


; beg in 


OFlEi 


2D6E 


FFFC 


FFFO 




MOVE. L 


-4(A6), -16(A6) 


; tempcount: =count 


0F24| 


2F2E 


FFE2 






MOVE. L 


-30(A6).-(A7) 


; push hardware base for device 


0F28I 


2F2E 


0016 






MOVE. L 


22(A6), -(A7) 
20(A6), -(A7) 


; push ®RC 


0F2CI 


3F2E 


0014 






MOVE. M 


; push drive number 


0F30I 


486E 


FFFC 






PEA 


-4(A6) 


; push Scount 


0F34I 


2F2E 


FFF8 






MOVE. L 


-8{A6), -(A7) 


; push b Ik 


0F38I 


2F2E 


FFF4 






MOVE. L 


-12(A6),-(A7) 
-20 A6), AO 


; push addr 


0F3CI 


206E 


FFEC 






MOVE. L 


; get address of driver 


0F40I 


4E90 








JSR 


(AO) 


; cal 1 the driver 
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0F42I 


206E 


0016 






MOVE. L 


22(A6), AO 


; get (8RC 


0F46I 


4A28 


0001 






TST.B 


1(A0) 


; if RC > 127 then exit 


0F4AI 


6B** 








BMI.S 


(92 




0F4CI 


202E 


FFFO 






MOVE. L 


-16(A6),D0 




0F50I 


90AE 


FFFC 






SUB.L 


-4(A6), DO 
DO, -8(A6) 


; x: =tempcount-count 


0F54I 


DIAE 


FFF8 






ADD.L 


; blk:=blk«x 


0F58I 


E188 








LSL.L 


«8,D0 




0F5AI 


D080 








ADD.L 


DO, DO 




0F5CI 


DIAE 


FFF4 






ADD.L 


DO, -12(A6) 


, addr: =addr+512*x 


0F6GI 


60B6 








BRA.S 


(91 


; end 


0F4A* 


16 














GFIC* 


44 














0F62I 


202E 


FFE6 




02 


MOVE. L 


-26(A6),D0 
-30(A6),D0 




0F66I 


BOAE 


FFE2 






CMP.L 


Built in port ? 


0F6AI 


66** 








BNE. S 


(93 




0F6CI 


4280 








MOVE. L 


»0,D0 




0F6EI 










TRAPTO 


108 


yes, set port free 


0F6EI 


2F07 






» 


MOVE. L 


D7, -(SP) 




0F70I 


3E3C 


006C 




« 


MOVE. W 


#108, D7 




0F74I 


4E45 






» 


TRAP 


#5 




0F76I 


2E1F 






# 


MOVE. L 


(SP) + ,D7 




0F6A* 


OC 














0F78I 


4CDF 


OOOE 




(93 


MOVEM. L 


(A7)*,D1-D3 




0F7CI 


4E5E 








UNLK 


A6 




0E3E* 


0140 














0F7EI 


205F 






DISKIOX 


MOVE. L 


(A7)*, AO 




0F80I 


DEFC 


0012 






ADD.M 


«18,A7 




0F84I 


4ED0 








JMP 


(AO) 




0F86I 


















0F86I 












PROCEDURE CDSKRD (SASEADDR: LONGINT; 


QF88I 














VAR RC: INTEGER; 


0F86I 














DRIVE: INTEGER 




0F86I 














VAR COUNT: LONGINT; 


0F86I 














BLKNUMBER: LONGINT; 


0F88I 














VAR BUFFER); 




0F86I 


















0F86I 












Stack: 






0F86I 


















0F88I 














26 base address 




0F86I 














22 ®RC ptr to word 0. . 255 


OF861 














20. . 21 dr ive word 


OF861 














16 (iCount ptr to long 


OF861 














12. . 15 Block Number 


iong 


OF861 














8 (DBuffer ptr 


OF861 














4 Return Address 




OF861 














Old A6 




OF861 


















0E86* 


0100 














OF861 








CDSKRD 








OF861 


4E56 


FFFC 






LINK 


A6,#-4 




OF8A1 


206E 


0010 






MOVE. L 


16(A6),A0 ; 


get Scount 


OFBEl 


5390 








SUB.L 


»1,(A0) ; 


decrement count 


0F90I 


206E 


OOIA 






MOVE. L 


26(A6), AO ; 


get base address 


0F94I 


1D7C 


0032 


FFFC 




MOVE. B 


»$32, I0CMD(A6) 


set command to read 


0F9AI 


1D6E 


0015 


FFFD 




MOVE. B 


21(A6), I0DRV(A6) ; 


set drive number 
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OFAOl 


1D6E 


OOOF 


FFFE 




MOVE. B 


15(A6),BL0CKL(A6) ; 
14(A5),BL0CKH(A6) ; 


set block Isb 


OFA6I 


1D6E 


OOOE 


FFFF 




MOVE. B 


set block msb 


OFACI 


11 7C 


OOFF 


0018 




MOVE.B 


«$FF,DDRA(A0 ) ; 


port A bits to output 


0FB2I 


0890 


0003 






BCLR 


«3,0RB(A0) ; 


bidir drvr to output 


OFB61 


43EE 


FFFC 






LEA 


I0CMD(A6),A1 ; 


(^command string 


OFBAl 


7003 








MOVE. L 


#CMDSIZE-1,D0 ; 


length-1 of command string 


OFBCl 


0810 


0001 




DSKRDl 


BTST 


«1,IRB(A0) ; 


ready ? 


OFCOl 


67FA 








BEQ. S 


DSKRDl 




0FC2I 


1159 


0008 






MOVE. B 


(A1)+,0RA(A0) ; 


move each byte 


OFC6I 


51C8 


FFF4 






DBF 


DO, DSKRDl 




OFCAl 


700D 








MOVE. L 


#13, DO ; 


delay approx 30us 


OFCCI 


51C8 


FFFE 




DSKRD2 


DBF 


D0,DSKRD2 




OFDGl 


0810 


0000 




DSKRD3 


BTST 


J»0,IRB(AO) ; 


bus direction in ? 


0FD4I 


66FA 








BNE.S 


DSKRD3 




OFD6I 


4228 


0018 






MOVE. B 


«0,DDRA(AO) ; 


port A bits to input 


OFDAl 


0800 


0003 








BSET 


«3,0RB(A0) ; 


bidir drvr to input 
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OFDE 


4280 








CLR.L 


DO 




OFEO 


0810 


0001 




DSKRD4 


BTST 


#1, IRB(AO) 


; ready ? 


0FE4 


67FA 








BEQ.S 


DSKRD4 




0FE6 


1028 


0008 






MOVE. B 


IRA(AO),DO 


; get status byte into DO 


OFEA 


226E 


0016 






MOVE. L 


22(A6),A1 




OFEE 


3280 








MOVE. W 


DO, (Al) 


return status as RC 


OFFO 


226E 


0008 






MOVE.L 


8(A6),A1 


, address of block buffer 


0FF4 


703F 








MOVE. L 


»DSKBLK/8-l,D0 


; length-1 of block 


0FF6 


0810 


0001 




DSKRD5 


BTST 


#1, IRB(AO) 


; ready ? 


OFFA 


67FA 








BEQ.S 


DSKRDS 




OFFCl 


41E8 


0008 






LEA 


IRA(AO), AO 


(9input reg 


lOOOl 


12D0 






DSKRD6 


MOVE. B 


(AO), (Al )+ 


move each byte 


1002 


12D0 








MOVE. B 


(AO ), (Al )+ 




1004 


12D0 








MOVE. B 


(AO ), (Al ) + 




10061 


12D0 








MOVE. B 


(AO), (Al ) + 




10081 


12D0 








MOVE. B 


(AO), (Al ) + 




lOOAl 


12D0 








MOVE. B 


(AO), (Al ) + 




lOOCl 


12D0 








MOVE. B 


(AO), (Al )♦ 




lOOEl 


1200 








MOVE. B 


(AO), (Al )+ 




lOlQl 


51C8 


FFEE 






DBF 


DO, DSKRD6 




10141 


6000 


**** 






BRA 


FINISH 




10181 
















10181 










PROCEDURE CDSKWR (BASEADDR: LONGINT; 


10181 












VAR RC: INTEGER; 


10181 












DRIVE: INTEGER 




10181 












VAR COUNT: LONGINT; 


10181 












BLKNUMBER: LONGINT; 


10181 












VAR BUFFER); 




10181 
















10181 










Stack: 






10181 
















10181 












26 base address 




10181 












2i ®RC 


ptr to word 0. . 255 


10161 












20.. 21 drive 


jjord 


10181 












16 (SCount 


ptr to long 


10181 












12. . 15 Block Number 


long 


10181 












8 SBufTer 




10181 












4 Return Address 




10181 












Old A6 
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^ARDDISK.TEXT 






10181 
















0E8E 


• 018A 














10181 


4E56 


FFFC 




:dskwr 


LINK 


A6,#-4 




lOlCl 


206E 


0010 






MOVE. L 


16(A6), AO 


get 9count 


10201 


5390 








SUB. L 


«1, (AO) 


decrement count 


10221 


206E 


OOIA 






MOVE. L 


26(A6),A0 


get base address 


10261 


107C 


0033 


FFFC 




MOVE.B 


#$33, I0CMD(A6) 


set command to uirite 


102CI 


106E 


0015 


FFFD 




MOVE. B 


21(A6), I0DRV(A6) 


set drive number 


10321 


1D6E 


OOOF 


FFFE 




MOVE. B 


15(A6),BL0CKL(A6) 
14(A6 ),BL0CKH(A6 ) 


set block Isb 


10381 


1D6E 


OOOE 


FFFF 




MOVE. B 


set block msb 


103EI 


117C 


OOFF 


0018 




MOVE. B 


«$FF,DDRA(AO) 
«3,0RB(A0) 


port A bits to output 


10441 


0890 


0003 






BCLR 


bidir drvr to output 


10481 


43EE 


FFFC 






LEA 


I0CMD(A6),A1 


©command string 


104CI 


7003 








MOVE. L 


«CMDSIZE-1,D0 


length-1 of command string 


104EI 


0810 


0001 


[ 


DSKWRT2 


BTST 


»1, IRB(AO) 


ready ? 


1052) 


67FA 








BEQ.S 


DSKWRT2 




10541 


1159 


0008 






MOVE. B 


(Al )+,ORA(AO) 


move each byte 


10581 


51C8 


FFF4 






DBF 


DO, DSKWRT2 




105CI 


0810 


0001 


C 


DSKWRT3 


BTST 


#1, IRB(AO) 


ready ? 


10601 


67FA 








BEQ.S 


DSKWRT3 




10621 


43E8 


0008 






LEA 


ORA(AO), Al 


Soutput reg 


10661 


206E 


0008 






MOVE. L 


8(A6),A0 


address of block buffer 


106AI 


703F 








MOVE. L 


»DSKBLK/8-l,D0 


length-1 of block 


106CI 


1298 




[ 


DSKWRT4 


MOVE. B 


(A0)+,(A1) ; 


move each byte 


106EI 


1298 








MOVE. B 


(AO )+, (Al ) 




10701 


1298 








MOVE. B 


(AO ) + , (Al ) 




10721 


1298 








MOVE.B 


(A0)+, (Al ) 




10741 


1298 








MOVE. B 


(AO)*, (Al ) 




10761 


1298 








MOVE. B 


(A0)+, (Al ) 
(A0)+, (Al) 




10781 


1298 








MOVE. B 




107AI 


1298 








MOVE. B 


(A0)+, (Al ) 




107CI 


51C8 


FFEE 






DBF 


DO, DSKWRT4 




10801 


206E 


OOIA 






MOVE. L 


26(A6), AO ; 


get base address 


10841 


700D 








MOVE. L 


«13,D0 i 


delay approx 30us 


10861 


51C8 


FFFE 


[ 


)SKWRT5 


DBF 


D0,DSKWRT5 




108AI 


0810 


0000 


t 


3SKWRT6 


BTST 


»0, IRB(AO) ; 


bus direction in ? 


108EI 


66FA 








BNE. S 


DSKWRT6 




10901 


4228 


0018 






MOVE.B 


«0,DDRA(AO) 


port A bits to input 


10941 


08D0 


0003 






BSET 


#3,0RB(A0) ; 


bidir drvr to input 


1098 


4280 








CLR.L 


DO 




109A 


0810 


0001 


[ 


3SKWRT7 


BTST 


»1,IRB(A0) ; 


ready ? 


109E 


67FA 








BEQ. S 


DSKWRT7 




lOAOl 


1028 


0008 






MOVE. B 


IRA(A0),D0 ; 


get status byte into 00 


10A4 


226E 


0016 






MOVE. L 


22(A6), Al 




10A8 


3280 








MOVE. W 


DO, (Al) ; 


return status as RC 


lOAA 


6000 


**** 




-iriSLA^r^i.^ 


ef%-^--. 


FINISH 




lOAE 








^.T-T— -7.-^^'^" 


"■ *- -a*3i.*rT":.-* 






lOAE 










PIPPIN 


JUMP TABLE (headers) 




lOAE 
















lOAE 


6000 


Id*** 


F 


'JMPTBL 


BRA 


PDSKINIT 




10B2 


6000 


**** 






BRA 


PDSKREAD 




10B6 


6000 


«*** 






BRA 


PDSKWRT 




lOBA 


6000 


***Kc 






BRA 


PDSKCSZ 




lOBE 
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47 MONITOR ^FlLE: HARDDISK. TEXT 



PIPPIN JUMP TABLE (no headers 



lOBEl 

lOBEl 

10C2I 

10C6I 

lOCAl 

lOCEl 

lOCEl 

lOCEl 

IQCO* 

lOBO* 

lOCEl 

lOCEl 

10D2I 

10D6I 

lODEl 

10B4* 

10E2I 

10E2I 

10E61 

10B8« 

lOEAl 

lOEAl 

IDEEl 

10C4* 

10F2I 

10F2I 

10F6I 

10C8* 

lOFAi 

lOFAl 

IGFEl 

lOCC* 

lOBC* 

11021 

11021 

11081 

llOCi 

llOCi 

llOCi 

llOCi 

11131 

lllAl 

lllCl 

lllCl 

lllCl 

lllCl 

lllEl 

11201 

11241 

11281 

112AI 

112AI 

112AI 

112AI 

112EI 

PAGE - 



6000 **** 
6000 **** 
6000 **** 
6000 **** 



OOOE 
OOIE 

4E56 0000 

6100 FDC8 

2D7C 0000 2560 ODOA 

6000 FD9C 

002E 

41FA **>x>x 
6000 FDD6 
0032 

41FA **** 
6000 FDCE 
002E 

41FA **** 
6000 FDC6 
0032 

41FA **** 
6000 FDBE 
0036 
0046 

3F7C 0003 0006 
6000 FD74 



00 05 OA OF 04 09 OE 
03 08 OD 02 07 73C 01 
06 OB 



72F0 
C200 

0240 OOOF 
D23B 00E6 
4E75 



lOBC 0008 : 

4228 0018 : n 

48 monitor::: FILES 



NJMPTBL BRA PDSKINIT 

BRA NDSKREAD 

BRA NDSKWRT 

BRA PDSKCSZ 

FUNCTION PDSKINIT(DEV: INTEGER ): LONGI NT 



PDSKINIT 

LINK 
BSR 

MOVE. L 
BRA 


A6,«0 
PRTINIT 
«9568,10(A6) 
INITXIT 


PDSKREAD 

LEA 
BRA 


PDSKRD, AO 
DISKIO 


PDSKWRT 

LEA 
BRA 


PDSKWR, AO 
DISKIO 


NDSKREAD 

LEA 
BRA 


NDSKRD, AO 
DISKIO 


NDSKWRT 

LEA 
BRA 


NDSKWR, AO 
DISKIO 


PDSKCSZ 

MOVE. W 
BRA 


«3,6(A7) 
CSZEXIT 



return disk size 



go do Pippin disk read 



go do Pippin disk uirite 



go do Pippin disk read 



go do Pippin disk urite 



return cluster size ( ie shift count 



INTRLV .BYTE 0,5,10,15,4,9,14,3,8,13,2,7,12,1,6,11 ; 9: 1 INTERLEAVE 



REMAP MOVED #-$10, Dl 

AND.B DO.Dl 

AND. W «$0F, DO 

ADD.B INTRLV(DO), Dl 
RTS 



FINDD2 MOVE.B #$08,0RB(A0) 

MOVE.B »$00,DDRA(AO) 
HARDDISK. TEXT 



= $F0 

mask high 4 bits 

mask loui 4 bits 

add in remapped loui 4 bits 



en=true, dir=in, cmd=true 
set port A bits to input 



11321 
11361 
H38| 
113CI 
113EI 
11401 
11421 
1140" 
11461 
11481 
114EI 
11521 
11561 
115AI 
115CI 
llBOl 
11641 
11661 
11661 
11661 
11661 
11681 
116AI 
116CI 
11701 
11721 
11741 
116EH 
11781 
117CI 
11821 
11861 
118AI 
118EI 



0810 0001 

66FA 

1228 0008 

4200 

B202 

66** 

103C 0055 

04 

4210 

117C OOFF 0015" 

1140 0008 

lOBC 0010 

0810 0001 

67FA 

4228 0018 

lOBC 0018 

4E75 



7401 

61C0 

4A00 

6(500 **** 

61B8 

4A00 

6700 **** 

OOOA 

lOBC 0010 

117C OOFF 0018 

43EE FFFA 

1151 0078 

1159 0008 

1151 0078 



WFBl 



SNDRl 



WFNBl 



BTST 
BNE. S 
MOVE. B 
CLR.B 
CMP.B 
BNE. S 
MOVE. B 

MOVE. B 
MOVE. B 
MOVE. B 
MOVE. B 
BTST 
BEQ. S 
MOVE. B 
MOVE.B 
RTS 



STATOl MOVE. L 
BSR 
TST. B 
BNE 
BSR 
TST.B 
BEQ 

C0PY6 MOVE. B 
MOVE. B 
LEA 

C0PY6LP MOVE.B 
MOVE. B 
MOVE. B 



«1,0RB{A0) 

WFBl 

IRA(A0),D1 

DO 

D2,D1 

SNDRl 

»$55, DO 

»$00,ORB(AO ) 
»$FF,DDRA(AO) 
D0,ORA(AO) 
#$10,0RB(A0 ) 
«1,0RB(A0 ) 
WFNBl 

«$00,DDRA(AO) 
«$18,0RB(A0) 



»1,D2 

FINDD2 

00 

C0PY6 

FINDD2 

DO 

DSKERR 

»$10,ORB(AO ) 
»$FF,DDRA(AO ) 
-6(A6),A1 
(Al ), NHS{AO) 
(A1) + ,0RA(A0) 
(Al ),NHS(AO) 



wait for busy 

get port A in Dl 

did pippin return state requested ? 



en=true, dir=out, cmd=truB 
set port A bits to output 
send reply 00 or 55 
en=true, dir=out, cmd=false 
ujait for not busy 

set port A bits to input 
en=true, dir=in, cmd=false 



try to find state 01 

if state 01 was found then 
go send command bytes else 
try to find state 01 again 
if state 01 was not found then 
return disk error 

Bn=true, dir=out, cmd=false 
set port A bits to output 
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11921 


1159 


0008 




MOVE. B 


(A1)+,0RA(A0) 




^ 


11961 


1151 


0078 




MOVE.B 


Al ), NHS(AO) 






119AI 


1159 


0008 




MOVE. B 


A1)+,DRA(A0) 






119EI 


1151 


0078 




MOVE. B 


'ai),nhs(ao) 






11A2I 


1159 


0008 




MOVE. B 


1 Al )+,ORA(A0 ) 






11A6I 


1151 


0078 




MOVE. B 


1 Al ),NHS(AO ) 






llAAl 


1159 


0008 




MOVE. B 


A1)+,0RA(A0) 






llAEl 


1151 


0078 




MOVE. B 


(Al ),NHS(A0) 






11B2I 


1159 


0008 




MOVE. B 


(Al ) + ,ORA{AO) 






11B6I 


4E75 






RTS 










11B8I 


















11B8I 


















11B8I 


















11B8I 


1D68 


0008 FFFCf 


GETSTAT 


MOVE. B 


IRA(AO 


,-4(A6) 






llBEl 


1D68 


0008 FFFC; 




MOVE. B 


IRAfAO 


,-3(A6 






11C41 


1D68 


0008 FFFE: 




MOVE. B 


ira(ao 


.-2 A6 






llCAl 


1D68 


0008 fffC 




MOVE. B 


IRA(AO 


.-1(A6) 






llDOl 


4E75 






RTS 










11D2I 






5 ' " 












11D2I 


















11D2I 
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HARDDISK.TEXT 










11D2I 


206E 


0016 


STRTRO 


MOVE.L 


22 (A6 ), 


AO 


set RC to zero 




11061 


4250 






CLR.W 


(AO) 








11D8I 


206E 


OOIA 




MOVE. L 


26(A6), 


AO 


get base address 




llDCl 


422E 


FFFA 




MOVE. B 


#0,PCMND(A6) 


set command to read 




llEOl 


422E 


FFFB _- 




MOVE. B 


»0,BLKh 


(A6) 


set block number 




11E4I 


1D6E 


oooE rrtc 




MOVE. B 


14(A6), 
15(A6), 


BLKM(A6) 






llEAi 


102E 


OOOF 




MOVE.B 


DO 


Isb of block number 




llEEl 


1200 






MOVE. B 


00,01 








llFOl 


4A6E 


FFF8 




tSt.w 


-8(A6) 








11F4I 


67** 






BEQ. S 


91 








11F6I 


6100 


FF24 




BSR 


-REMAP 








11F4* 


04 
















llFAl 


1D41 


FFFD 


31 


MOVE.B 


Dl.BLKL 


(A6) 


replace block number 




llFEi 


1D7C 


OOOA TFFE 




MOVE. B 


#10,RETRY(A6) 
»4, THRESH(A6 ) 


set retry count 




12041 


1D7C 


0004 FFFF 




MOVE. B 


set threshhold 




120AI 


6100 


FF5A 




BSR 


STATOl 




get 01 byte and send read command 


120EI 


7402 






MOVE. L 


#2,02 




get 02 byte 




12101 


6100 


FF18 




BSR 


FIN002 








12141 


4A00 






TST.B 


DO 




disk error if not in read state 


12161 


6700 


*«** 


-:, 


BEQ 


OSKERR 








121AI 


4E75 






RTS 










121CI 


















121CI 








PROCEDURE PDSKRD (BASEADDR: LONGINT; 




121CI 












VAR RC: INTEGER; 




121CI 












DRIVE: INTEGER 






121CI 












VAR COUNT: LONGINT; 




121CI 












BLKNUMBER: LONGINT; 




121CI 












VAR BUFFER); 






121CI 


















121CI 








Stack: 










121CI 


















121CI 










26 


base address 






121CI 










22 


ORG 


ptr to word 0. .255 




121CI 










20. .21 


dr ive 


»iord 




121CI 










16 


OCount 


3tr to long 




121CI 










12. . 15 


Block Number 


long 




121CI 










8 


©Buffer 






121CI 










4 . 


-Return Address 






121CI 













Old A6 






121CI 










-6 


Command Buffer 






121CI 










-8 


Header f lag 






121CI 










-28 


Header Buffer 






121CI 






-! 












10E4* 


0138 
















121CI 


303C 


0001 


PDSKRD 


MOVE. N 


#1,00 




headers : = true 




12201 


60** 






BRA. S 


LDSKRD 








10F4* 


012E 
















12221 


4240 




NDSKRD 


MOVE. M 


»0,00 




headers := false 




1220* 


02 
















12241 


4E56 


FFE4 


LDSKRD 


LINK 


A6,#-28 








12281 


3D40 


FFF8 




MOVE. M 


00, -8(A6) 






122CI 


206E 


0010 




MOVE.L 


16(A6), 


AO 


get ©count 




12301 


5390 






SUB.L 


#1, (AO 




decrement count 




12321 


619E 






BSR 


STRTRD 




try read first time 




12341 


1D68 


0008 EEFC 




MOVE. B 


IRA(AO] 


.-4(A6) 


get pippin status 
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MONLTQR |1LE: 


HARDDISK. TEXT 










123AI 


1D68 


0008~FFTD 




MOVE. B 


IRAfAO 


,-3(A6) 






12401 


1D68 


0008 PFTE 




MOVE. B 


IRAfAO 


, -2(A6) 
,-l(A6) 






12461 


1068 


0008 FFFF 




MOVE. B 


IRA(AO 






124CI 


4A6E 


FFFE 




TST.W 


-2(A6) 








12501 


6A** 






BPL. S 


RONRES 








12521 


6100 


FF7E;:::: 




BSR 


STRTRD 




try read second t ime 




12561 


1D68 


0008 FFFC 




MOVE. B 


IRA(AO 


, -4(A6) 


get pippin status 




125CI 


1D68 


0008 FFFD 




MOVE. B 


IRAfAO 


, -3(A6 






12621 


1D68 


OOOB; FFFE 




MOVE. B 


IRAfAO 


,-2(A6) 






12681 


1068 


000^ FFFF 




MOVE.B 


IRA(AO 


,-l(A6) 






1250* 


IC 
















126EI 


7403 




RDNRES 


MOVE. L 


»3,D2 








12701 


4AAE 


FFFC 




TST.L 


-4{A6) 








12741 


6600 


**** 




BNE 


OSKERR 
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12781 


4201 




— -1 




CLR.B 


Dl 


I NIT CSUM 




127AI 


41E8 


0008 






LEA 


IRA(AO ), AO 








127E( 


4A6E 


FFF8 






TST.W 


-8(A6) 








12821 


67** 








BEQ.S 


RSKPHDR 








12841 


43EE 


FFE4 






LEA 


-28(A6), Al 








12881 


343C 


0009 






MOVE. N 


»HDRSIZE,D2 








128CI 








READHDR 












128CI 


1010 








MOVE. B 


(AO),DO 


GET 


BYTE FROM DISK 




128EI 


BlOl 








EOR.B 


DO.Dl 


INCLUDE IN RUNNING CHECKSUM 




12901 


12C0 








MOVE. B 


DO, (Al) + 
(AO), DO 


AND 


STORE IT IN BUFFER 




12921 


1010 








MOVE. B 


GET 


BYTE FROM DISK 




12941 


BlOl 








EOR.B 


DO.Dl 


INCLUDE IN RUNNING CHECKSUM 




12961 


12C0 








MOVE. B 


DO, (Al )+ 


AND 


STORE IT IN BUFFER 




12981 


51CA 


FFF2 






DBF 


D2, READHDR 


REPEAT UNTIL DONE 




1282* 


18 


















129CI 








RSKPHDR 












129CI 


226E 


0008 






MOVE. L 


8(A6), Al 




; get address of BUFFER 




12A0I 


343C 


OOFF 






MOVE. N 


«BLKSIZE,D2 








12A4I 








READLP 








; read the data bytes 




12A4I 


1010 








MOVE. B 


(AO),DO 


GET 


BYTE FROM DISK 




12A6I 


BlOl 








EOR.B 


D0,D1 


INCLUDE IN RUNNING CHECKSUM 




12A8I 


12C0 








MOVE. B 


DO, (Al ) + 
(AO),DO 


AND 


STORE IT IN BUFFER 




12AAI 


1010 








MOVE. B 


GET 


BYTE FROM DISK 




12ACI 


BlOl 








EOR.B 


D0,D1 


INCLUDE IN RUNNING CHECKSUM 




12AEI 


12C0 








MOVE. B 


DO, (Al )■<- 


AND 


STORE IT IN BUFFER 




12B0I 


51CA 


fff£ 






DBF 


D2, READLP 


REPEAT UNTIL DONE 




12B4| 


4A01 








TST.B 


Dl 








12B6I 


67** 








BEQ.S 


FINISH 








12B8I 


4A6E 


FFF8 






TST.W 


-8(A6) 








12BCI 


67** 








BEQ.S 


FINISH 








12BEI 


4A2E 


FFEA 






TST.B 


-22 (A6) 








12C2I 


6A** 








BPL. S 


FINISH 








12C4I 


7404 








MOVE.L 


«4,D2 








12C6I 








t 












1276* 


0050 


















1218* 


OOAE 


















1176* 


0150 


















12C6I 


206E 


00 If: 




DSKERR 


MOVE. L 


22(A6), AO 




; set RC 




12CAI 


4402 








NEG.B 


D2 




; error is 128. .255 




12CCI 


3082 








MOVE. M 


D2,(A0) 








12CEI 








; 












12C2* 


OA 
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12BC* 


10 


















12B6* 


16 


' 
















lOAC* 


0222 


















1016* 


02B8 


















12CEI 


4E5E 






FINISH 


UNLK 


A6 








12D0I 


205F 








MOVE. L 


(A7)*,A0 








12D2I 


DEFC 


0016 






ADD. M 


«22, A7 








12D6I 


4ED0 








JMP 


(AO) 








12D8I 








;-" 












12D8I 








; 












12D8I 








• 












12D8I 


206E 


0016 




STRTWRT 


MOVE. L 


22(A6), AO 




; set RC to zero 




12DCI 


4250 








CLR. W 


(AO) 








12DEI 


206E 


OOIA 






MOVE. L 


26(A6), AO 




; get base address 




12E2I 


1D7C 


0002 


FFFA 




MOVE. B 


»2,PCMND(A6) 




; set command to lur i te/ver if y 




12E8I 


422E 


FFFB 






MOVE.B 


»0,BLKH(A6) 




; set b lock number 




12ECI 


1D6E 


OOOE 


F>"PC 




MOVE. B 


14(A6),BLKM(A6) 








12F2I 


102E 


OOOF 






MOVE. B 


15(A6),D0 




; Isb of block number 




12F6I 


1200 








MOVE. B 


DO.Dl 








12F8I 


4A6E 


FFF8 






TST.W 


-8(A6) 








12FCI 


67** 








BEQ.S 


@1 








12FEI 


6100 


FEIC 






BSR 


REMAP 








12FC* 


04 


















13021 


1D41 


FFFD 




81 


MOVE. B 


D1,BLKL(A6) 




; replace block number 




13061 


1D7C 


OOOA 


FJ^E 




MOVE. B 


»10,RETRY(A6) 
«4, THRESH(A6) 




; set retry count 




130CI 


1D7C 


0004 


FFFF 




MOVE. B 




; set threshhold 




13121 


6100 


FE52 






BSR 


STATOl 




; get 01 byte and send uirite command 




13161 


7404 








MOVE. L 


#4,D2 








13181 


6100 


FEIO 






BSR 


FINDD2 




; get 04 byte 




131CI 


4A00 








TST.B 


DO 








131EI 


67A6 








BEQ 


DSKERR 




; disk error if not in write/verify 


state 


13201 


lOBC 


0010 






MOVE. B 


«$10,0RB(A0) 




; en=true, dir=out, cmd=false 




13241 


117C 


OOFF 


0018 




MOVE. B 


«$FF,DDRA(A0) 




; set port A bits to output 




132AI 


4A6E 


FFF8 






TST.W 


-8(A6) 








132EI 


67** 








BEQ.S 


WSKPHDR 








13301 


43EE 


FFE4 






LEA 


-28(A6),A1 








13341 


303C 


0009. 






MOVE. W 


»HDRSIZE,DO 








13381 


1151 


0078 




HDRLOOP 


MOVE.B 


(Al ),NHS(AO ) 




; send out header bytes 




133CI 


1159 


0008 






MOVE. B 


(Al )+,ORA(AO) 
(Al ),NHS(AO) 








13401 


1151 


0078 






MOVE.B 








13441 


1159 


0008: 






MOVE. B 


(Al ) + ,ORA(AO) 








13481 


51C8 


ffee: 






DBF 


DO, HDRLOOP 








132E* 


IC 


















134CI 


226E 


0008 




WSKPHDR 


MOVE. L 


8(A6),A1 




J get address of BUFFER 




13501 


303C 


OOFF 






MOVE. W 


»BLKSIZE,DO 








13541 


1151 


0078 




WRTLOOP 


MOVE. B 


(Al ),NHS(AO) 




; send out data bytes 




13581 


1159 


0008 






MOVE. B 


Al ) + ,ORA(AO ) 








135CI 


1151 


0078 






MOVE. B 


(Al ),NHS(AO ) 








13601 


1159 


0008 






MOVE. B 


(Al )+,ORA(AO) 








13641 


51C8 


FFEE 






DBF 


DO, WRTLOOP 








13681 


7406 








MOVE. L 


#6,D2 








v_„™.,™™. 
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136A 


6100 FPIe 




BSR 


FINDD2 










136E 


4A00 : 




TST.B 


DO 










1370 


6700 irF54 




BEQ 


DSKERR 
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1374 


4E75 




RTS 












1376 




^. 














1376 






PROCEDURE PDSKWR 


(BASEADDR:LONGINT; 


1376 












VAR 


RC: INTEGER; 


1376 












DRIVE: INTEGER 


; 


1376 












VAR 


COUNT: LONGI NT: 


1376 












BLKNUMBER:LONGINT; 


1376 












VAR 


BUFFER ); 




1376 


















1376 






Stack: 












1376 


















1376 








26 


base address 




1376 








22 


SRC 




ptr to word 0. .255 


1376 








20.. 21 


dr 


ive 




Luord 


1376 








16 


OCount 




ptr to long 


1376 








12.. 15 


Bl 


Dck Number 


long 


1376 








8 


SB 


uffer 




1376 








4 


Return 


Address 




1376 











Old A6 






1376 








-6 


Command Buffer 




1376 








-8 


He 


ader 


flag 




1376 








-28 


He 


ader 


Buffer 




1376 


















lOEC 


* 028A 
















1376 


303C 0001 ( 


=DSKWR 


MOVE. N 


«1,D0 








; headers : = true 


137A 


60** 




BRA.S 


LDSKWR 










lOFC 


* 0280 
















137C 


4240 1 


MDSKWR 


MOVE. M 


#0,00 








; headers : - false 


137A 


* 02 
















137E 


4E56 FFE4 


-DSKWR 


LINK 


A6,«-28 










1382 


3D4Q FFF8 




MOVE. N 


DO, -8(A6) 








1386 


41EE FFE4 




LEA 


-28(A6), 


AO 






; ®header buffer 


138A 


4281 




CLR.L 


Dl 










138C 


20CI 




MOVE. L 


Dl, (A0)+ 
Dl, (AO)* 








138E 


30C1 




MOVE. M 








1390 


30FC gOOO 




MOVE. M 


#$8000, { 


AO 


)* 




J sign bit on in byte 6 indicates csum 


1394 


20CI 




MOVE. L 


Dl, (A0)+ 








1396 


20CI 




MOVE. L 


D1,(A0)+ 








1398 


20C1^ 




MOVE. L 


Dl,(AO)+ 








139A 


123C 0080 




MOVE. B 


#$80, Dl 








; csum for header = $80 


139E 


202E 0008 




MOVE. L 


8(A6),D0 








13A2 


2040 




MOVE. L 


DO.AO 










13A4 


E2S8 




ROR.W 


#1,D0 










13A6 


64** 




BCC. S 


®2 










13A8 


343C OlFF 




MOVE. M 


#511, D2 










13AC 


1018 ( 


Si 


MOVE. B 


(AO)*,DO 






CSUM on byte boundary 


13AE 


BlOl 




EOR.B 


D0,D1 










13B0 


51CA FFFA 




DBF 


D2,ail 










13B4 


60** 




BRA.S 


04 










13A6 


* OE 
















13B6 


343C 007F t 


82 


MOVE. W 


#127, D2 










13BA 


2018 ( 


S3 


MOVE. L 


(AO)+,DO 






CSUM on even word boundary 


13BC 


B181 




EOR. L 


DO.Dl 








long csum 


13BE 


51CA FFFA 




DBF 


D2,®3 










13C2 


3001 




MOVE. W 


Dl.DO 
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13C4 


4841 




SWAP 


Dl 










13C6 


B141 




EOR.W 


DO.Dl 








word csum 


13B4 


* 12 
















13C8 


3F01 C 


84 


MOVE. M 


Dl, -(A7 


) 








13CA 


B317 




EOR.B 


D1,(A7) 
(A7V,-1 










13CC 


105F FFEF 




MOVE. B 


7(A6) 




final csum in byte 11 


13D0 


206E DOlO 




MOVE. L 


16(A6), AO 






get Scount 


13D4 


5390 




SUB.L 


«1,(A0) 








decrement count 


13D6 


6100 FJ^OO 




BSR 


STRTWRT 








try write first time 


13DA 


6100 FI)DC 




BSR 


GETSTAT 








write complete get pippin status 


13DE 


4A6E FTFE 




TST. W 


-2(A6) 










13E2 


6A** 




BPL. S 


WRTNRES 










13E4 


6100 FEF2 




BSR 


STRTWRT 








try write second time 


13E8 


6100 FDCE 




BSR 


GETSTAT 








write complete get pippin status 


13E2 


* 08 
















13EC 


7407 \ 


>IRTNRES 


MOVE. L 


«7,D2 










13EE 


4AAE FFFC 




TST.L 


-4(A6) 










13F2 


6600 FED2 




BNE 


DSKERR 










13F6 


6000 FED6 


is 


BRA 


FINISH 










13FA 


_. 














13FA 




equates for M 


arksman 


nterf ace 




13FA 


















13FA 




reset 


for breadboard is 


tFiru 


139 where 


as 4-port card uses PB6 on PIA2 


13FA 


OOFC 7001 \ 


■1RKRES 


EQU 


$FC7001 






; addres 


: to read to' reset marksman 


13FA 


0000 0000 F 


^EGO 


EQU 


$00 






; offset 


to read/write register 


13FA 


0000 0008 F 


REGl 


EQU 


$08 










13FA 


1 0000 0010 F 


REG2 


EQU 


$10 










13FA 


1 0000 0018 F 


REG3 


EQU 


$18 










13FA 


1 0000 0020 F 


^EG4 


EQU 


$20 










13FA 


1 0000 0028 F 


REG5 


EQU 


$28 










13FA 


0000 0030 F 


REG6 


EQU 


$30 










13FA 

»■ I... 


1 0000 0038 F 


^EG7 


EQU 


$38 
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13FAI 


0000 


0040 




^EG8 EQU 


t40 






13FAI 


0000 


0048 




=REG9 EQU 


$48 






13FAI 


0000 


0050 




^EGA EQU 


$50 






13FAI 


0000 


0058 




=!EGB EQU 


$58 






13FAI 


0000 


0060 




^EGC EQU 


$60 






13FAI 


0000 


0068 




^EGD EQU 


$68 






13FAI 


0000 


0070 


REGE EQU 


$70 






13FAI 


0000 


0078 




=tEGF EQU 


$78 






13FAI 


0000 


0000 




XPOVRUN EQU 









13FAI 


0000 


0001 




:D0VRUN EQU 


1 






13FAI 


0000 


0002 




XPCPT EQU 


2 






13FAI 


0000 


0003 




KPBUSY EQU 


3 






13FAI 


0000 


0004 


CDCPT EQU 


4 






13FAI 


0000 


0005 




[MTBUSY EQU 


5 






13FAI 


0000 


0007 




DTRQST EQU 


7 






13FAI 


0000 


OOAB 




[DFIELD EQU 


$AB 






13FAI 
















13FAI 








MARKSMAN JUMP TABLE 






13FAI 
















13FAI 


6000 


**** 


MJMPTBL BRA 


MDSKINIT 






13FEI 


6000 


XiDototl 




BRA 


MDSKREAD 






14021 


6000 


**** 




BRA 


MDSKWRT 






14061 


6000 


**** 




BRA 


MDSKCSZ 
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140AI 
















140AI 
















140AI 
















140AI 


207C 


OOFC 


7001 1 


-IDSKRES MOVE.L 


«MRKRES, AO 






14101 


0890 


0008 




BCLR 


«6,(A0) 






14141 


4E71 






NOP 








14161 


08D0 


0006 




BSET 


#6. (AO) 






141AI 


203C 


0007 


A120 


MOVE. L 


#500000,00 




; get count for 2 seconds 


14201 


5380 






91 SUB. L 


»1,D0 






14221 


66FC 






BNE. S 


@1 




; uiait for marksman to reset 


14241 


4E75 






RTS 








14261 
















14261 








FUNCTION MDSKINIT(DEV: 


[NTEGER): 


LONGINT 


14261 
















13FC* 


002A 














14261 








^DSKINIT 








14261 


4E56 


0000 




LINK 


A6,«0 






142AI 


4E71 






NOP 








142CI 


2D7C 


0002 


OCIO OOOA 


ill MOVE. L 


#134160, 10(A6) 




; return disk size 


14341 


6000 


FA46 




BRA 


INITXIT 






1400* 


0038 














14381 








•1DSKREAD 








14381 


41FA 


**** 




LEA 


MDSKRD, AO 






143CI 


6000 


FA80 




BRA 


DISKIO 




; go do Marksman disk read 


1404* 


00 3C 














14401 








>1DSKWRT 








14401 


41FA 


**** 




LEA 


MDSKWR, AO 






14441 


6000 


FA78 




BRA 


DISKIO 




; go do Marksman disk uirite 


1408* 


0040 














14481 








-IDSKCSZ 








14481 


3F7C 


0006 


0006 


MOVE. M 


«6,6(A7) 




; return cluster size ( ie shift count) 


144E1 


6000 


FA2E 




BRA 


CSZEXIT 






14521 
















14521 








PROCEDURE MDSKRD (BASEADDR: LONGINT; 


14521 










VAR 


RC: INTEGER; 


14521 










DRIVE: INTEGER; 


14521 










VAR 


COUNT: LONGINT; 


14521 










BLKNUMBER: LONGINT; 


14521 










VAR 


BUFFER ); 




14521 
















14521 








Stack: 








14521 
















14521 










26 base address 




14521 










22 ®RC 




ptr to word 0. . 255 


14521 










20. .21 drive 




uiord 


14521 










16 liCount 




ptr to long 


14521 










12. . 15 Block Number 


long 


14521 










8 (SBuffer 




14521 










4 Return 


Address 




14521 










Old A6 






14521 










-1 reg9 






14521 
















14521 










-9' regl 






14521 










-10 regO 






14521 
















143A* 


0018 
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14521 


4E56 


FFF6 




*1DSKRD LINK 


A6,»-10 






14561 


202E 


OOOC 




MOVE.L 


12(A6),D0 




; get Block Number 


145A1 


81FC 


0028 




DIVS 


#40, DO 




; DO msui isSector, DO Istu is quotient 


145EI 


4281 






CLR.L 


Dl 






14601 


3200 






MOVE. W 


DO.Dl 






14621 


83FC 


0006 




DIVS 


»6,D1 




; Dl msw is Head, Dl Isui is Cylinder 


14661 


3401 






MOVE.W 


D1,D2 






14681 


E05A 






ROR.W 


»8,D2 






146A1 


43EE 


FFF6 




LEA 


-10(A6),A1 






146EI 


12FC 


0058 




MOVE. B 


«$58, (Al )+ 




; regO -- read command 


14721 


4219 






MOVE. B 


#0, (Al )+ 




; regl -- drive number 
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1474 


12C2 






MOVE. B 


D2,(A1)4. 


J reg2 -- cylinder MSB 


1476 


12C1 






MOVE. B 


D1,(A1)+ 


; reg3 -- cylinder LSB 


14781 


4841 






SWAP 


01 




147A| 


12C1 






MOVE. B 


D1,(A1)+ 


; reg4 -- head number 


147CI 


4840 






SWAP 


DO 




147EI 


12C0 






MOVE. B 


DO, (Al )+ 


; regS -- sector number 


14801 


4219 






MOVE. B 


«0, (Al )+ 


; reg6 -- unused 


14821 


12FC 


0005 




MOVE. B 


#5, (Al ) + 


; reg7 -- number retries 


14861 


7428 






MOVE. L 


#40, D2 




14881 


9400 






SUB.B 


DO, 02 


J left: =40-sector# 


148AI 


206E 


0010 




MOVE. L 


16(A6), AO 




148EI 


B490 






CMP.L 


(A0),D2 


; if left > count then 


14901 


60** 






BLT.S 


®0 




14921 


2410 






MOVE. L 


(A0),D2 


; left: =count 


1490 


* 02 












14941 


2602 




(50 


MOVE. L 


D2,D3 


; copy left to counter 


14961 


12C2 






MOVE. B 


D2, (Al )+ 


; reg8 -- number of sectors to read 


14981 


4219 






MOVE.B 


«0, (Al)+ 


; peg9 -- unused 


149A1 


206E 


OOIA 


(913 


MOVE. L 


26(A6), AO 


; get base address 


149EI 


203C 


0001 B207 




MOVE. L 


#111111,00 


; get count for 1 second 


14A4| 


5380 




@1 


SUB.L 


#1,D0 




14A6I 


66** 






BNE.S 


(912 


; if timeout then reset marksman 


14A8I 


6100 


FF60 




BSR 


MDSKRES 




14ACI 


60EC 






BRA.S 


(913 




14A6 


* 06 












14AEI 


0810 


0005 


(312 


BTST 


#IMTBUSY, (AO) 


; wait for IMTBUSY to go false 


14B2I 


66F0 






BNE.S 


(91 




14B4| 


303C 


0048 




MOVE. W 


#REG9, DO 


; offset to last register 


14B8I 


llAl 


0000 


(92 


MOVE. B 


-(A1),0(A0,D0) 


; send next byte to disk 


14BCI 


5140 






SUB.W 


#REG1,D0 


; subtract offset betueen registers 


14BEI 


6AF8 






BPL.S 


92 


; done ? 


14C0I 














14C0 


226E 


0008 




MOVE. L 


8(A6),A1 


; get address of buffer 


14C4I 


303C 


OlFF 


93 


MOVE. M 


#511,00 




14C8I 


0C42 


0001 




CMP. W 


#1,02 




14CCI 


67** 






BEQ.S 


(911 




14CE 


303C 


OOOF 




MOVE. W 


#15,00 




14D2 














14CC 


* 04 












14D2 


1210 




911 


move. b 


(A0),D1 


1st read 


14D4 


B210 






cmp. b 


(AOJ.Dl 


same the next time? 


14D6 


66FA 






bne. s 


911 


nope, keep looking 


14D8 


0801 


0005 




btst 


#IMTbusy,Dl 


busy still ok? 
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14DC 


67«* 






beq. s 


95 


nope, assume error 


14DE 


0801 


0007 




btst 


#DTrqst , Dl 


well, hou about data ready? 


14E2 


66EE 






bne. s 


@11 


sorry, look again 


14E4 














14E4 


0C42 


0001 


(39 


CMP. W 


#1,02 




14E8 


67** 






BEQ.S 


94 




14EA 


0348 


0078 




MOVER. L 


REGF(A0),D1 


J copy the data from fifo to buffer 


14EE 


22C1 






MOVE. L 


Dl, (Al )+ 




14F0 


0348 


0078 




MOVER. L 


REGF(A0),D1 




14F4 


22C1 






MOVE. L 


D1,(A1)+ 




14F6 


0348 


0078 




MOVER. L 


REGF(AO), Dl 




14FA 


22C1 






MOVE. L 


Dl, (Al )+ 




14FC 


0348 


0078 




MOVER. L 


REGF(A0),D1 




1500 


22C1 






MOVE. L 


Dl, (Al )+ 




1502 


0348 


0078 




MOVER. L 


REGF(A0),D1 




1506 


22C1 






MOVE. L 


D1,(A1)+ 




1508 


0348 


0078 




MOVER. L 


REGF(AO), Dl 




150C 


22C1 






MOVE.L 


Dl, (Al )+ 




150E 


0348 


0078 




MOVER. L 


REGF(A0),D1 




1512 


22C1 






MOVE. L 


Dl, (Al ) + 




1514 


0348 


0078 




MOVER. L 


REGF(AO ),D1 




1518 


22C1 






MOVE.L 


D1,(A1) + 




151A 


51C8 


FFC8 




DBF 


DO, 99 




151E 


60** 






BRA. S 


910 




14E8 


* 36 












1520 


12E8 


0078 


@4 


MOVE. B 


REGF(AO), (Al )+ 




1524 


51C8 


FFFA 




DBF 


D0,®4 




151E 


* 08 












1528 


5343 




®10 


SUB.W 


»1,D3 


; deer the counter 


152A 


6698 






BNE.S 


93 




152C 


226E 


0010 




MOVE. L 


16(A6), Al 




1530 


9591 






SUB.L 


02, (Al ) 


; count: =count- left 


1532 














14DC 


* 54 












1532 


1010 




®5 


move. b 


(A0),DO 


get va 1 id status 


1534 


BO 10 






cmp. b 


(AOJ.DO 




1536 


66FA 






bne. s 


95 




1538 


0800 


0005 




btst 


»IMTbusy,DO 


wait for valid CDcpt 


153C 


66F4 






bne. s 


95 




153E 


0800 


0004 




btst 


»CDcpt, DO 


then wait for command completion 


1542 


67EE 






beq. s 


95 




1544 














1544 


4240 




®7 


CLR.W 


DO 




1546 


226E 


0016 




MOVE. L 


22(A6), Al 


; get the address of status 


154A 


1028 


0008 




MOVE.B 


REG1(A0),D0 


; get the status byte 


154E 


OCOO 


0005 




CMR.B 


#5, DO 


; if status is bad then 


1552 


6F*« 






BLE.S 


98 




1554 


4400 






NEG.B 


DO 


; negate the byte 


1552 


* 02 












1556 


3280 




®8 


MOVE. W 


DO, (Al ) 


; copy status to user 


% 












^ 
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15581 


6000 


FD74 




BRA 


FINISH 








155CI 


















155CI 








PROCEDURE MDSKWR ( 


BASEADDR:LONGINT; 


155CI 












VAR 


RC: INTEGER; 


155CI 












DRIVE: INTEGER 
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HARDDISK. TEXT 










155CI 












VAR 


COUNT: LONGINT; 


155CI 












BLKNUMBER:LONGINT; 


155CI 












VAR 


BUFFER ); 




155CI 


















155CI 








Stack: 










155CI 


















155CI 










26 base address 




155CI 










22 SRC 




ptr to word 0. .255 


155CI 










20. .21 drive 




utord 


155CI 










16 ©Count 




itr to long 


155CI 










12. .15 Block Number 


long 


155CI 










8 SBurrer 




155CI 










4 Return 


Address 




155CI 










Old A6 






155CI 


















1442* 


OllA 
















155CI 


4E56 


FFF6 t 


'IDSKWR 


LINK 


A6,#-10 








15601 


202E 


OOOC 




MOVE. L 


12(A6),D0 






get Block Number 


15641 


81FC 


0028 




DIVS 


«40,D0 






DO msui is Sector, 00 Isui is quotient 


15681 


4281 






CLR.L 


Dl 








156AI 


3200 






MOVE. W 


DO.Dl 








156CI 


83FC 


0006 




DIVS 


«6,D1 






Dl msui is Head, 01 Isui is Cylinder 


15701 


3401 






MOVE. W 


D1,D2 








15721 


E05A 






ROR. W 


#8,02 








15741 


43EE 


FFF6 




LEA 


-10(A6), Al 








15781 


12FC 


0060 




MOVE. B 


#$60, (Al )+ 






; ragO -- write command 


157CI 


4219 






MOVE. B 


»0, (Al )+ 






regl -- drive number 


157EI 


12C2 






MOVE. B 


D2, (Al ) + 






reg2 -- cylinder MSB 


15801 


12C1 






MOVE. B 


Dl, (Al)* 






rBg3 -- cylinder LSB 


15821 


4841 






SWAP 


Dl 








15841 


12C1 






MOVE. B 


Dl, (Al)* 






reg4 -- head number 


15861 


4840 






SWAP 


DO 








15881 


12C0 






MOVE.B 


DO, (Al)* 






reg5 -- sector number 


158AI 


12FC 


OOAB 




MOVE. B 


• IDFIELD, (Al )* 




reg6 -- id field 


158EI 


4219 






MOVE.B 


1*0, (Al )♦ 






reg7 -- unused 


15901 


7428 






MOVE. L 


#40, D2 








15921 


9400 






SUB. B 


D0,D2 






left: =40-sector# 


15941 


206E 


0010 




MOVE. L 


16(A6),A0 








15981 


B490 






CMP.L 


(A0),D2 






if left > count then 


159AI 


6D** 






BLT. S 


®0 








159CI 


2410 






MOVE. L 


(A0),D2 






left: =count 


159A* 


02 
















159EI 


2602 


C 


80 


MOVE. L 


D2,D3 






copy left to counter 


15A0I 


12C2 






MOVE. B 


D2, (Al)* 






reg8 -- number of sectors to uirite 


15A2I 


4219 






MOVE. B 


»0, (Al )* 






reg9 -- unused 


15A41 


206E 


OOIA C 


813 


MOVE. L 


26(A6), AO 






get base address 


15A8I 


203C 


0001 B207 




MOVE. L 


#111111,00 






get count for 1 second 


15AEI 


5380 


c 


n 


SUB.L 


#1,D0 








15B0I 


66** 






BNE. S 


®12 






if timeout then reset marksman 


15B2( 


6100 


FE56 




BSR 


MDSKRES 








15B6I 


60EC 






BRA. S 


®13 








15B0* 


06 
















15B8I 


0810 


0005 C 


m 


BTST 


#IMTBUSY, (AO) 




wait for IMTBUSY to go false 


15BC1 


66F0 






BNE. S 


@1 








ISBEl 


303C 


0048 




MOVE. W 


«REG9,D0 






offset to last register 
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15C2I 


llAl 


0000 C 


i2 


MOVE. B 


-(Al ),0(A0, 


DO) 




send next byte to disk 


15C6I 


5140 






SUB.W 


»REG1,D0 






subtract offset between registers 


15C8I 


6AF8 






BPL.S 


®2 






done ? 


15CAI 


226E 


0008 




MOVE. L 


8(A6 ),A1 






get address of buffer 


ISCEl 


303C 


OlFF C 


93 


MOVE. W 


#511, DO 








15D2I 


0C42 


0001 




CMP. W 


«1,D2 








15D6I 


67** 






BEG. S 


®11 








15D8I 


30 3C 


OOOF 




MOVE. W 


#15, DO 








ISDCl 


















15D6* 


04 
















15DCI 


1210 


c 


Pll 


move. b 


(A0),D1 
(A0),D1 




; fetch status 


ISDEi 


B210 






cmp. b 








15E0I 


66FA 






bne. s 


®11 






and uia 


It for settlinq 


15E2I 


0801 


0005 




btst 


»IMTbusy,Dl 






unbusy? 


15E6I 


67** 






beq. s 


®5 






yes, assume error 


15E8I 


0801 


0007 




btst 


WDTrqst , Dl 






e Ise, 


look at data ready 


15ECI 


66EE 






bne. s 


all 






sorry, 


still not available 


15EEI 


















15EEI 


0C42 


0001 C 


D9 


CMP. W 


«1,D2 








15F2I 


67** 






BEQ. S 


04 








15F4I 


2219 






MOVE. L 


(Al )*,D1 




; 


copy the data from fifo to buffer 


15F6I 


03C8 


0078 




MOVER. L 


D1,REGF(A0) 








15FAI 


2219 






MOVE.L 


(Al )*,D1 








15FCI 


03C8 


0078 




MOVER. L 


D1,REGF(A0) 








16001 


2219 






MOVE.L 


(Al )*,D1 








16021 


03C8 


0078 




MOVER. L 


D1,REGF(A0 ) 








16061 


2219 






MOVE.L 


(Al )*,D1 








16081 


03C8 


0078 




MOVER. L 


D1,REGF(A0) 








160CI 


2219 






MOVE.L 


(Al )+,Dl 








160EI 


03C8 


0078 




MOVER. L 


Dl.REGF(AO) 









J 
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■ 


16121 


2.219 






MOVE.L 


(A1)*,D1 








16141 


03C8 


0078 




MOVEP. L 


D1,REGF(A0) 








16181 


2219 






MOVE. L 


(A1)+,D1 








161AI 


03C8 


0078 




MOVEP. L 


D1,REGF(A0) 








161EI 


2219 






MOVE. L 


(Al )+,Dl 








16201 


03C8 


0078 




MOVEP. L 


D1,REGF(A0) 








16241 


51C8 


FFC8 




DBF 


D0,®9 








16281 


60** 






BRA.S 


910 








15F2t' 


36 
















162AI 


1159 


0078 


94 


MOVE. B 


(Al )*,REGF(A0) 








162EI 


51C8 


FFFA 




DBF 


DO, 94 








1628* 


08 
















16321 


5343 




910 


SUB. W 


«1,D3 




; deer the counter 




16341 


6698 






BNE. S 


93 








16361 


226E 


0010 




MOVE. L 


16(A6), Al 








163AI 


3591 






SUB.L 


D2, (Al ) 




; count: =count- left 




163CI 


















15E6* 


54 
















163CI 


1010 




95 


move. b 


(AO),DO ; 
(AO),DO 


get 


t/alid status 




163EI 


BOlO 






cmp. b 








16401 


66FA 






bne. s 


95 








16421 


0800 


0005 




btst 


#IMTbusy,DO ; 


make 


sure oF valid CDcpt 




16461 


66F4 






bne. s 


95 








16481 


0800 


0004 




btst 


«CDcpt,DO ; 


and 


iiait for command complete 




164CI 


67EE 






beq. s 


95 








PAGE 


- 59 


MONITOR FILE: HARDDISK. TEXT 










164EI 


















164EI 


4240 




97 


CLR.W 


DO 








16501 


226E 


0016 




MOVE. L 


22(A6),A1 




; get tha address of status 




16541 


1028 


0008 




MOVE. B 


REGl(AO), DO 




; get the status byte 




16581 


OCOO 


0005 




CMP.B 


#5, DO 




; if status is bad then 




165CI 


6F** 






BLE.S 


98 








165EI 


4400 






NEG.B 


DO 




J negate the byte 




165C* 


02 
















16601 


3280 




98 


MOVE. W 


DO, (Al) 




; copy status to user 




16621 


6000 


FC6A 




BRA 


FINISH 








16661 






; 












16661 


















16661 






; 












16661 








. INCLUDE MONIO.TEXT 








16661 






; 












16661 






; 


FILENAME MONIO 








16661 






; 












16661 


















16661 






; 


REGISTERS 








16661 






; 












16661 




' 


; 


A7 


stack pointer 








16661 






; 


A6-A2 


unused 








16661 






J 


Al 


ptr to pia 








16661 






5 


AO 


scratch 








16661 






; 


D7 


ptr system global 


s 






16661 






; 


D6-D0 


input paramters and scratch 




16661 


















16661 






; 












16661 






; 


EXECDRVR -- does the unit 


read 


from an exec file 




16661 






; 












16661 






EXECDRVR 










16661 


3800 






MOVE. M 


D0,D4 ; 


save 


the unit number 




16681 


2041 






MOVE. L 


Dl.AO ; 


save 


the address 




166AI 


4A42 






TST.W 


D2 








166CI 


67** 






BEQ. S 


92 








166EI 


6100 


**** 


91 


BSR 


FROMEXEC 








16721 


lOCO 






MOVE. B 


DO, (A0)+ 








16741 


5342 






SUB. W 


»1,D2 








16761 


66F6 






BNE. S 


91 








166C* 


OA 
















16781 


4E75 




92 


RTS 










167AI 


















167AI 


















167AI 


















167AI 


4840 




UNITDEV 


SWAP 


DO 








167CI 


3800 






MOVE. M 


D0,D4 








167EI 


EA48 






LSR.W 


»5,D0 








16801 


0240 


OOOF 




AND.W 


«$F, DO 








16841 


3F00 






MOVE. M 


D0,-(A7) 








1686) 


42A7 






CLR.L 


-(A7) 








16881 


3F00 






MOVE. W 


DO, -(A7) 








168AI 


6100 


F2CA 




BSR 


GETMTBL 








168EI 


205F 






MOVE. L 


(A7)+, AO 








16901 


4280 






CLR.L 


DO 








16921 


301F 






MOVE.W 


(A7 ) + ,D0 




; dev ice number 
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16941 


0244 


OOIF 




AND.W 


«$1F,D4 








16981 


E54C 






LSL.W 


»2,D4 




; unit number *4 




169AI 


4E75 






RTS 










169CI 


















169CI 


















169CI 


















169CI 


48E7 


8880 


CHECKCD 


MOVEM. L 


D0A)4/A0,-(A7) 








16A0I 


61D8 






BSR. S 


UNITDEV 








16A2I 


3030 


4000 




MOVE. W 


0(A0,D4),D0 
2(A0,D4),D0 








16A6I 


8070 


4002 




OR.W 




; set cc=NE if dsk or mem is mounted 




, 
















, 
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16AA 


1 4CDF 


0111 




MOVEM. L 


(A7)+,D0/D4/A0 


16AE 


4E75 






RTS 






16B0 














16B0 






; Input 








16B0 








DO 


equal to un i tnumber *256 byte 


16B0 








D3 


block number 


positive uiord 


16B0 














16B0 






; Output: 






16B0 








DO 


MSB reflects 


write protect word 


16B0 








D3 


if -1 then memory uiord 


16B0 








D4 


drive number 


word 


16B0 








05 


volumestart'»blocknumber long 


16B0 








06 


lastblock of 


this volume long 


16B0 














16B0 






; Note: 


if starting block for 


this volume is $FFFF then it is memory 


16B0 














16B0 


61C8 




SETINFO 


BSR 


UNITDEV 




DO=dev ice number, 04=unit number *4 


16B2 


C940 






EXG 


04,00 




D4=device number, DO=unit number *4 


16B4 


3C04 






MOVE. N 


04,06 




save device number for call to HOSKCSZ 


16B6 


E09C 






ROR.L 


#8,04 




move dev« to high byte of long 


16B8 


3A30 


0000 




MOVE. N 


0(A0,D0),D5 




qet strt cluster 


16BC 


0C4S 


FFFF 




CMP.W 


«$FFFF, 05 




16C0 


67** 






BEQ. S 


NOTOISK 




16C2 


2F04 






MOVE. L 


04, -(A7) 


; push rotated dev« to bias 05 and 06 


16C4 


0285 


0000 IFFF 




AND.L 


«$1FFF,05 


; make strt cluster a long 


16CA 


48E7 


8080 




MOVEM. L 


DO/AO, -(A7) 




16CE 


4267 






CLR. W 


-(A7) 




16D0 


3F06 






MOVE. M 


D6, -(A7) 


; push device number 


16D2 


6100 


F77A 




BSR 


HDSKCS2 


; get cluster size as shift count 


16D6 


38 IF 






MOVE. M 


(A7)+,D4 




1608 


4CDF 


0101 




MOVEM. L 


(A7)+, DO/AO 




16DC 


E9AD 






LSL.L 


04,05 




strtblock: =strtc luster *c lusters ize 


16DE 


DA97 






AOD.L . 


(A7),D5 




bias strtblock by dev# 


16E0 


0283 


0000 7FFF 




AND.L 


«$7FFF,D3 




make blocknumber a long 


16E6 


DA83 






AOD.L 


03,05 




vo lumestart + b locknumber 


16E8 


3C30 


0002 




MOVE. N 


2(A0,D0),O6 




get last cluster 


16EC 


0286 


0000 IFFF 




AND.L 


#$1FFF,06 




make last cluster a long 


16F2 


E9AE 






LSL.L 


04,06 




lastblock: = las tc luster *c lusters ize 


16F4 


DC9F 






AOD.L 


(A7) + ,06 




bias strtblock by dev#, pop dev# 


16F6 


3830 


0000 




MOVE. M 


0(AO,DO), D4 




compute drv 


16FA 


E75C 






ROL. W 


#3,04 




move top 3 bits to bottom 


16FC 


0244 


0007 




ANO.N 


#7,04 




and mask off the junk bits 4-15 


1700 


3030 


0002 




MOVE. M 


2(A0,O0), DO 




MSB reflects write protect 


1704 


4E75 






RTS 






16C0 


* 44 
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1706 


3003 




MOTDISK 


MOVE. W 


03,00 


; save strt block for mem r/w 


1708 


CIFC 


0200 




MULS 


•FBLKSIZ.OO 




170C 


D0B8 


0144 




AOD.L 


$144,00 


; compute it in bytes for them 


1710 


3605 






MOVE. W 


05,03 


; set D3 negative 


1712 


4E75 






RTS 






1714 














1714 








10 ERROR 




1714 














1714 


303C 


0001 


:derror 


MOVE. M 


»IBADBLK,00 




1718 


4E75 






RTS 






171A 














171A 








WRITE PROTECT ERROR 




171A 














171A 


303C 


0003 I 


-JRTPRT 


MOVE.W 


#IBAOMOD,00 




171E 


4E75 






RTS 






1720 














1720 














1720 














1720 


4241 


( 


:OBUSY 


MOVE. W 


»0,D1 




1722 


4240 






MOVE. N 


#INOERR, 00 


; ioresu 1 t: = inoerror 


1724 


4E75 






RTS 






1726 














1726 














1726 














1726 


4240 


( 


:dclear 


MOVE. W 


•INOERR.OO 


; ioresu It: = inoerror 


1728 


4E75 






RTS 






172A 














172A 






Input 


parameters: 




172A 














172A 








DO -- unit number *256 


byte 


172A 








Dl -- b 


jffer address 


long 


172A 








02 -- number bytes 


uiord 


172A 








03 -- block number 


word 


172A 














172A 


4A42 


( 


:dread 


TST.W 


02 


; is length neg ? 


172C 


6BE6 






BMI 


CDERROR 




172E 


4A43 






TST.W 


03 


; is block neg ? 


1730 


6BE2 






BMI 


CDERROR 




1732 


6100 


FF7C 




BSR 


GET INFO 


; set 05 to strt and D6 to last 


1736 


4A43 






TST.W 


03 




1738 


6B00 


**** 




BMI 


MEMREAD 


; memory ? 


173C 














173C 






register usea 


ge: 




173C 














173C 








DO -- used by dskread 


AO -■■ used by dskread 


173C 








01 -- Obuffer 


Al -- used by dskread 


173C 








02 -- 1 


sngth left 




173C 








03 -- 1 


sngth of fractional read 
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173CI 








D4 -- drv number 






173CI 








D5 -- curr block 






173CI 








D6 -- 


last block 






173CI 
















173CI 


3602 






MOVE. M 


D2,D3 


save low 9 bits 




173EI 


E04A 






LSR.W 


«8,D2 






17401 


E24A 






LSR.W 


»1,D2 


number of blocks to read 
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17421 


0282 


0000 007F 




AND.L 


#$7F, D2 






17481 


2005 






MOVE. L 


D5,D0 






174AI 


D082 






ADD.L 


D2,D0 






174CI 


5380 






SUB.L 


#1,D0 


forming start + b lockcount-1 




174EI 


BC80 






CMP.L 


D0,D6 


reading beyond the end of vol ? 




17501 


63C2 






BLS 


CDERROR 






17521 


4A82 






TST.L 


D2 


any full blocks to read ? 




17541 


67** 






BEG. S 


8)1 






17561 


4267 






CLR.W 


-(A7) 


allocate RC 




17581 


2F0F 






MOVE. L 


A7, -(A7) 


push ®RC 




175AI 


3F04 






MOVE. W 


D4, -(A7) 


push drv 




175CI 


2F02 






MOVE. L 


02, -(A7) 


push block count 




175EI 


2F05 






MOVE. L 


D5, -(A7) 


push b lock number 




17601 


2F01 






MOVE. L 


Dl, -(A7) 


push Sbuffer 




17621 


6100 


F6C4 




BSR 


DSKREAD 






17661 


301F 






MOVE. M 


(A7)*,D0 






1768) 


4A00 






TST.B 


DO 






176AI 


6BA8 






BMI 


CDERROR 


read error ? 




1754* 


16 














176CI 


0243 


OlFF 


91 


AND.N 


»$1FF,D3 






17701 


67** 






BEQ.S 


CDRWXIT 






17721 


DA82 






ADD.L 


D2,D5 


compute next starting block 




17741 


BC45 






CMP.W 


DS,D6 






17761 


639C 






BLS 


CDERROR 


reading beyond the end of vol ? 




17781 


EISA 






LSL.L 


#8, D2 






177AI 


0482 






ADD.L 


D2,D2 






177CI 


D282 






ADD.L 


D2,D1 


Sbuffer: =®buf f er+512*b lockcount 




177EI 


9EFC 


0200 


92 


SUB.W 


»DSKBLK, A7 






17821 


204F 






MOVE. L 


A7, AO 






17841 


2F08 






MOVE. L 


AO, -(A7) 


save AO (address of fractional buff) 




17861 


4267 






CLR.W 


-(A7) 


al locate RC 




17881 


2F0F 






MOVE. L 


A7, -(A7) 


push ORC 




178AI 


3F04 






MOVE. H 


D4, -(A7) 


push drv 




178CI 


2F3C 


0000 0001 




MOVE. L 


#1, -(A7) 


push block count 




17921 


2F05 






MOVE. L 


OS, -(A7) 


push block number 




17941 


2F08 






MOVE. L 


AO, -(A7) 


push address of fractional buff 




17961 


6100 


F690 




BSR 


DSKREAD 






179AI 


301F 






MOVE. W 


(A7)+,D0 






179CI 


205F 






MOVE.L 


(A7) + ,A0 


restore AO (address of fractional buff 


) 


179EI 


2241 






MOVE. L 


Dl.Al 






17A0I 


12D8 


®3 


MOVE. B 


(A0) + , (Al )+ 






17A2I 


5343 






SUB.W 


«1,D3 






17A4I 


66FA 






BNE. S 


(33 






17A6I 


DEFC 


0200 




ADD.W 


»DSKBLK, A7 






17AAI 


4A00 






TST.B 


DO 






17ACI 


6B00 


FF66 




BMI 


CDERROR , 


read error ? 




1770* 


3E 














17B0I 


4240 


CDRWXIT 


MOVE. W 


aiNOERR.DO 


ioresult: =inoerror 




17B2I 


4E75 






RTS 








17B4I 
















17B4I 






register uses 


ge: 






17B4I 
















17B4I 








DO -- start and counter AO -- from 




17B4I 








Dl -- ©buffer Al -- to 




17B4I 








D2 -- 1 


ength left 
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MONITOR FILE: ^ 


IONIC. TEXT 








17B4I 








D3 -- starting block 






17B4I 
















173A* 


007A 














17B4I 


2040 


► 


■1EMREAD 


MOVE. L 


DO.AO ; 


from = ($144) + blk*512 




17B6I 


2241 






MOVE. L 


D1,A1 ; 


to = ®buffer 




17B8I 
















17B8I 








shared 


by mem r/w to do the move 




17B8I 
















17B8I 


2009 


(■ 


10VEMEM 


MOVE. L 


Al.DO ; 


first check dest for uiord boundary 




17BAI 


E248 






LSR.W 


»1,D0 ; 


uie assume source is ! 




17BCI 


64** 






BCC.S 


MOVFAST 






17BEI 


3002 


h 


10VSL0W 


MOVE. W 


D2,D0 






17C0I 


67EE 






BEQ 


CDRWXIT 






17C2I 


5340 






SUB.W 


»1,D0 






17C4I 


12D8 


c 


n 


MOVE. B 


(A0)+,(A1)+ ; 


byte boundary, move bytes 




17C6I 


51C8 


FFFC 




DBF 


D0,®1 






17CAI 


60E4 






BRA 


CDRWXIT 






17BC* 


OE 














17CCI 


3002 


r 


lOVFAST 


MOVE. W 


D2,D0 ; 


uiord boundary, move quads ! 




17CEI 


E648 






LSR.W 


»3,D0 






17D0I 


67** 






BEQ.S 


112 ; 


any quads ? 




17D2I 


5340 






SUB.W 


#1,D0 






17D4| 


22D8 


c 


ill 


MOVE. L 


(A0)+, (Al)+ 






17D6I 


22D8 






MOVE. L 


(A0)+, (Al )* 






17D8I 


51C8 


FFFA 




DBF 


DO.dl 






17D0* 


OA 














17DCI 


0242 


0007 c 


92 


AND. W 


«7,02 






17E0I 


60DC 






BRA 


MOVSLOW 






. 
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Page 039 

















■> 


17E2I 


















17E2I 








reg 


ister useage: 




17E2I 


















17E2I 












DO -- start and counter 


^0 -- from 


17E2I 












Dl -- ©buffer 


M -- to 


17E2I 












D2 -- 


ength left 




17E2I 












D3 -- starting block 




17E2I 


















17E2I 






MEMWRITE 






17E2I 


2240 








MOVE. L 


DO.Al 


to = ($144) + blk*512 


17E4I 


2041 








MOVE. L 


Dl, AO 


from = Obuffer 


17E6I 


60D0 








BRA 


MOVEMEM 




17E8I 


















17E8I 


















17E8I 


















17E8I 


4 A 42 




CDWRITE 


TST.W 


D2 


Is length neg ? 


17EAI 


6B00 


FF28 






BMI 


CDERROR 




17EEI 


4A43 








TST.W 


D3 


is block neg ? 


17F0I 


6B00 


FF22 






BMI 


CDERROR 




17F4I 


6100 


FEBA 






BSR 


GET INFO 




17F8I 


4A43 








TST.W 


D3 




17FAI 


6BE6 








BMI 


MEMWRITE 


memory ? 


17FCI 


4A40 








TST.W 


DO 




17FEI 


6B00 


FFIA 






BMI 


WRTPRT 




18021 


















18021 








reg 


ister useage: 




18021 
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MONITOR 


FILE: MONIO 


TEXT 






18021 










DO -- used by dskuirt 


^0 -- used by dskwrt 


18021 












Dl -- dbuffer 


M -- used by dskwrt 


18021 












D2 -- 


ength left 




• 18021 












D3 -- 


ength of write 




18021 












D4 -- drv number 




18021 












D5 -- curr block 




18021 












D6 -- 


last block 




18021 


















18021 


0642 


OlFF 






ADD. W 


#511, D2 


round up to nearest block multiple 


18061 


E04A 








LSR. W 


#8,D2 




18081 


E24A 








LSR.W 


«1,D2 


number of blocks to read 


180AI 


0282 


0000 007F 






ANO.L 


#$7F, D2 




18101 


2005 








MOVE. L 


DS.DO 




18121 


D082 








ADD.L 


D2,D0 




18141 


5380 








SUB. L 


«1,D0 


forming start + b lockcount-1 


18161 


BC80 








CMP.L 


DO, D6 


reading beyond the end of vo 1 ? 


18181 


6300 


FEFA 






BLS 


CDERROR 




181CI 


4267 








CLR.W 


-(A7) 


allocate RC 


181EI 


2F0F 








MOVE. L 


A7, -(A7) 


push ®RC 


18201 


3F04 








MOVE. W 


D4, -(A7) 


push drv 


18221 


2F02 








MOVE. L 


D2, -(A7) 


push block count 


18241 


2F05 








MOVE. L 


D5, -(A7) 


push block number 


18261 


2F01 








MOVE. L 


Dl, -(A7) 


push Sbuffer 


18281 


6100 


F616 






BSR 


DSKWRT 




182CI 


301F 








MOVE. W 


(A7)+,D0 




182EI 


4A00 








TST.B 


DO 




18301 


6B00 


FEE2 






BMI 


CDERROR 


read error ? 


18341 


6000 


FF7A 






BRA 


CDRWXIT 




18381 


















18381 












DRIVER 


TRANSFER TABLE 




18381 


















18381 


6000 


**>tt* 


DRVRTBL 


BRA - 


RDDATA 




183CI 


6000 


Xt*** 






BRA 


WRDATA 




18401 


6000 


*>ti*Kl 






BRA 


UNITCLR 




18441 


0000 


0000 






.WORD 


0,0 




18481 


6000 


>k«)Kit( 






BRA 


UNITBSY 




184CI 


















184CI 












ROUTINE TO PUT A BYTE TO 


PIA 


184CI 


















184C1 


4A29 


0006 


i=>UT 




TST.B 


OUTCSR(Al) 




18501 


6AFA 








BPL.S 


PUT 


uia i t till ready 


18521 


4A29 


0002 






TST.B 


OUTDATA(Al) 


reset ready flag 


18561 


1340 


0002 






MOVE. B 


D0,0UTDATA(A1 ) 


send lo byte of DO 


185AI 


4E75 








RTS 






185CI 


















185CI 












ROUTINE TO GET A BYTE FR( 


DM PIA 


185CI 


















185CI 


4A29 


0004 


GET 




TST.B 


INCSR(A1 ) 




18601 


6AFA 








BPL.S 


GET 


wait for data avail 


18621 


1011 








MOVE. B 


INDATA(A1 ),D0 


get data and reset flag 


18641 


4E75 








RTS 






18661 


















18661 












FORCED 


lORESULT OF LOST UNIT FOR UNIT I/O TO APPLE | 


18661 


















18661 


303C 


0005 


NOAPPLE 


MOVE. W 


#ILSTUNT,DO 
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MONITOR 


FILE: MONIO 


TEXT 






186AI 


4E75 








RTS 






186CI 






N0APPL2 








186Ci 


E048 








LSR.W 


«8, DO 


get unit number into lower byte 


186EI 


0C40 


0002 






CMP. W 


»2,D0 


unit 1 or 2 ? 


18721 


62F2 








BHI.S 


NOAPPLE 




18741 


4240 








MOVE. W 


»INOERR,DO 


ioresult:=0 if unitwrite to unit 1 or 2 


18761 


4E75 








RTS 






18781 
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' 












— N 


1878 






> 


GET lORESULT FROM APPLE 


INTO DO AND RETURN 


1878 






5 








1878 


61E2 




GETRSLT 


BSR 


GET 


; get high byte 


187A 


E148 






LSL. W 


#8, DO 




187C 


61DE 






BSR 


GET 


; get lout byte 


187EI 


4E75 






RTS 






1880 














1880 








SEND 10 


COMMAND AND UNIT 


NUMBER 


1880 














18801 


61CA 




SENDCMD 


BSR 


PUT 


; send 10 command byte 


1882 


E048 






LSR. W 


#8, DO 


; get unit number into lower byte 


18841 


61C6 






BSR 


PUT 


; send unit number 


18861 


4E75 






RTS 






18881 














18881 








SEND HEADER: address count blocknumber { 


18881 














18881 


2001 




SENDHDR 


MOVE. L 


Dl.DO 


; send 4 byte address 


188AI 


E198 






ROL.L 


»8,D0 




188CI 


61BE 






BSR 


PUT 


; high byte first 


188EI 


E198 






ROL.L 


«8,D0 




18901 


61BA 






BSR 


PUT 




18921 


E198 






ROL.L 


«8,D0 




18941 


61B6 






BSR 


PUT 




18961 


E198 






ROL.L 


#8, DO 


; low byte last 


18981 


61B2 






BSR 


PUT 




189AI 


3002 






MOVE. N 


D2,D0 


; send 2 byte count 


189CI 


E158 






ROL.W 


«8,D0 




189EI 


61AC 






BSR 


PUT 


; high byte 


18A0I 


E158 






ROL.W 


»8,D0 




18A2I 


61A8 






BSR 


PUT 


; low byte 


18A4I 


3003 






MOVE. W 


D3,D0 


; send 2 byte blocknumber 


18A6I 


E158 






ROL.W 


#8, DO 




18A8I 


61A2 






BSR 


PUT 


; high byte 


18AAI 


E158 






ROL.W 


«8,D0 




18ACI 


619E 






BSR 


PUT 


; low byte 


18AE 


2041 






MOVE. L 


Dl, AO 




18B0I 


4E75 






RTS 






18B2I 














18B2 








UNIT BUSY 




18B2I 














184A 


* 0068 












18B2I 


5840 




UNITBSY 


ADD. W 


#4, DO 


; setup ID command 


18B4 


6100 


FDE6 




BSR 


CHECKCD 




18B8 


6600 


FE66 




BNE 


CDBUSY 




18BC 


4AB8 


0118 




TST. L 


$118 




18C0I 


67A4 






BEQ 


NOAPPLE 




18C2I 


61BC 






BSR 


SENDCMD 


; send 10 command and unit number 
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18C4I 


6196 






BSR 


GET 


; get high byte 


18C6I 


E148 






LSL.W 


#8, DO 




18C8I 


6192 






BSR 


GET 


; get low byte 


18CAI 


3200 






MOVE. W 


DO.Dl 




18CC 


60AA 






BRA 


GETRSLT 


; get lORESULT and return 


18CE 














18CEI 








UNIT CLEAR 




18CE 














1842 


* 008C 












18CE 


5240 




UNITCLR 


ADO. W 


«1,D0 


, setup 10 command 


18D0I 


6100 


FDCA 




BSR 


CHECKCD 




18D4I 


6600 


FE50 




BNE 


CDCLEAR 




18D8I 


4AB8 


0118 




TST.L 


$118 




18DCI 


6788 






BEQ 


NOAPPLE 




18DEI 


61A0 






BSR 


SENDCMD 


send 10 command and unit number 


18E0I 


6096 






BRA 


GETRSLT 


get lORESULT and return 


18E2I 














18E2 








READ DATA STREAM 




18E2 














183A 


* 00A8 












18E2 


5440 




RDDATA 


ADD. W 


»2,D0 


setup 10 command 


18E4 


6100 


FDB6 




BSR 


CHECKCD 




18E8 


6600 


FE40 




BNE 


CDREAD 




18EC 


4AB8 


0118 




TST.L 


$118 




18F0 


6700 


FF74 




BEQ 


NOAPPLE 




18F4 


618A 






BSR 


SENDCMD 


send 10 command and unit number 


18F6 


6190 






BSR 


SENDHDR 


send header and setup AO 


18F8 


60** 






BRA. S 


132 




18FA 


4A29 


0004 


®1 


TST.B 


INCSR(Al) 




18FE 


6AFA 






BPL. S 


®1 


wait for data avail 


1900 


lODl 






MOVE. B 


INDATA(A1 ), (AO )+ 


get data and reset flag 


18F8 


* 08 












1902 


5342 




02 


SUB.W 


#1,D2 


dec count 


1904 


64F4 






BCC.S 


(Si 




1906 


6000 


FF70 




BRA 


GETRSLT 


get lORESULT and return 


190A 














190A 








WRITE DATA STREAM 




190A 














183E 


* OOCC 












190A 


5640 




WRDATA 


ADD.W 


»3,D0 


setup 10 command 


190C 


6100 


FD8E 




BSR 


CHECKCD 




1910 


6600 


FED6 




BNE 


CDWRITE 




1914 


4AB8 


0118 




TST.L 


$118 




1918 


6700 


FF52 




BEQ 


N0APPL2 




191C 


6100 


FF62 




BSR 


SENDCMD 


send 10 command and unit number 


1920 

k. 


6100 


FF66 




BSR 


SENDHDR 


send header and setup AO 
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19241 


60** 






BRA.S 


92 






19261 


4A29 


0006 


(Si 


TST.B 


OUTCSR(Al) 






192AI 


6AFA 






BPL.S 


01 


; wait till ready 




192CI 


4A29 


0002 




TST.B 


0UTDATA(A1 ) 


; reset ready flag 




19301 


1358 


0002 




MOVE. B 


(A0)+,0UTDATA(A1 


) 




1924* 


OE 














19341 


5342 




92 


SUB.W 


#1,D2 


; dec count 




19361 


64EE 






BCC.S 


@1 






19381 


6000 


FF3E 




BRA 


GETRSLT 


; get lORESULT and return 
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MONITOR 


FILE: MONIO. 


TEXT 








193CI 
















193CI 








DEFAULT 


DRIVER FOR ALL UNIT ID 




193CI 
















193CI 


327C 


0118 


DRVR 


MOVE. M 


«$H8, Al 


; set up base register for PIA 




19401 


2251 






MOVE. L 


(A1),A1 






19421 


3F00 






MOVE. N 


D0,-(A7) 






19441 


4840 






SWAP 


DO 


; move mach ine/dev/un i t number to upper 


hiord 


19461 


301F 






MOVE. W 


(A7)*,D0 






19481 


0240 


OOIF 




AND.M 


«$1F,D0 






194CI 


El 48 






LSL.W 


#8, DO 


; move unit number to upper byte 




194EI 


0246 


OOOE 




ANO.N 


»$E, D6 






19521 


DC46 






ADD.M 


D6,D6 


; map 1,2,4,8 to 0,4,8,16 




19541 


41FA 


FEE2 




LEA 


DRVRTBL, AO 






19581 


4EF0 


6000 




JMP 


0(A0,D6) 


; goto to appropiate drvr 




195CI 
















195CI 








GET UNIT NUMBER AND VALIDATE 




195CI 
















19SCI 


225F 




GETUNIT MOVE.L 


(A7)+, Al 


; save return address 




195EI 


3A1F 






MOVE. M 


(A7)*,D5 


; get unit number in D5 




19601 


67** 






BEQ.S 


@I3 


J bad if zero 




19621 


3005 






MOVE.W 


D5, DO 


; save unit number for driver 




19641 


0245 


OOIF 




AND.W 


»$1F,D5 






19681 


0C45 


0014 




CMP.W 


«MAXU, D5 






196CI 


62** 






BHI.S 


03 


• bad if greater than MAXU 




196EI 


CBFC 


0006 




MULS 


«6,D5 


; times UNITBL entry size 




19721 


41FA 


ED7C 




LEA 


UNITBL, AO 






19761 


CC70 


5000 




AND.N 


0(A0,D5), D6 


; test 10 direction 




197AI 


67** 






BEQ.S 


®2 






197CI 


0C40 


0002 




CMP.W 


«2,D0 


• unit 1 or 2 ? 




1980( 


62** 






BHI.S 


196 






19821 


0C46 


0001 




CMP.W 


«INBIT,D6 


; read ? 




19861 


66** 






BNE. S 


(96 






19881 








GETEBST 


D4 


test ebstop, if non zero then inexec 




19881 


1820 


FF87 


» 


MOVE. B 


-121(A5),D4 






198CI 


67** 






BEQ.S 


96 






198EI 


41FA 


FCD6 




LEA 


EXECDRVR, AO 






19921 


60** 






BRA.S 


®7 






198C* 


06 














1986* 


OC 














1980* 


12 














19941 


2A30 


5002 


06 


MOVE. L 


2(A0,D5),D5 


get address of driver 




19981 


66** 






BNE. S 


(91 






199AI 


41FA 


FFAO 




LEA 


DRVR.AO 






1992* 


OA 














199EI 


4ED1 




®7 


JMP 


(Al) 






1998* 


06 














19A0I 


2045 




@1 


MOVE. L 


D5, AO 


move address of driver into AO 




19A2I 


4ED1 






JMP 


(Al) 


and return 




197A* 


28 














19A4I 


7003 




(32 


MOVE.L 


«IBADMOD,DO 


bad I/O direction 




19A6I 


60** 






BRA.S 


(14 






196C* 


3A 














1960* 


46 














19A8I 


7002 




®3 


MOVE.L 


»IBADUNT,DO 


bad unit number 




19AAI 






<i4 


GETSYSC 


AO 


get pointer to syscom in AO 




19A6* 


02 
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MONITOR 


FILE: MONIO. 


TEXT 








19AAI 


206D 


FFFC 


» 


MOVE. L 


-4(A5), AO 






19AEI 


1080 






MOVE.B 


DO, lORSLT(AO) 






19B0I 


4A59 






TST.W 


(Al)* 


skip JSR (AO) since iorslt is nonzero 




19B2I 


4ED1 






JMP 


(Al) 






19B4I 
















19B4I 








UNIT CLEAR 






19B4I 
















19B4I 


7C04 




UCLR 


MOVE. L 


»CLRBIT, D6 


save UREQ in D6 




19B6I 


61A4 






BSR 


GETUNIT 


get unit number and validate 




19881 


4E90 






JSR 


(AO) 


go to driver 




19BAI 


60** 






BRA.S 


lOEXIT 






19BCI 
















19BCI 








UNIT WRITE 






19BCI 
















19BCI 


7C02 




UWRITE 


MOVE. L 


#0UTBIT,D6 


save UREQ in D6 




19BEI 


60** 






BRA.S 


UIO 






19C0I 
















19C0I 








UNIT READ 






19C0I 
















19C0I 


7C01 




UREAD 


MOVE. L 


«INBIT,D6 


save UREQ in D6 




19BE* 


02 














19C2I 


361F 




UIO 


MOVE. W 


(A7)+,D3 


get async param 




19C4I 


4843 






SWAP 


D3 


into the high word 




19C6I 


361F 






MOVE.W 


(A7 )+,D3 


get blocknumber 




19C8I 


341F 






MOVE. W 


(A7) + ,D2 


get length 




s... 


__„ 
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T 


19CAI 


221F 






MOVE. L 


(A7)*,D1 


get address 




19CCI 


618E 






BSR 


GETUNIT 


get unit number and validate 




19CEI 


4E90 






JSR 


(AO) 


go to driver 




19D0I 






lOEXIT 


GETSYSC 


AO 


get pointer to syscom in AO 




19BA* 


14 














19D0I 


206D 


FFFC 


» 


MOVE. L 


-4(A5), AO 






19D4I 


1080 






MOVE. B 


DO,IORSLT(AO) 






19D6I 


4E75 






RTS 








19D8I 
















19D8I 








UNIT BUSY 






19D8I 
















19D8I 


7C08 




UBUSY 


MOVE. L 


#BSYBIT,D6 


save UREQ in D6 




19DAI 


6180 






BSR 


GETUNIT 


get unit number and validate 




19DCI 


4E90 






JSR 


(A7) + ,D2 


go to driver 




19DEI 


241F 






MOVE. L 






19E0I 


0241 


0001 




ANDI.M 


«1,D1 






19E4I 


3F01 






MOVE. W 


Dl, -(A7) 
D2, -(A7) 






19E6I 


2F02 






MOVE. L 






19E8I 


60E6 






BRA.S 


lOEXIT 






19EAI 
















19EAI 








FUNCTION ADDRDRVR: PTR 






19EAI 
















19EAI 








returns 


the address of the default driver 




19EAI 
















19EAI 








stack: 








19EAI 
















19EAI 








4 


function result 






19EAI 











return address 






19EAI 
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MONITOR 


FILE: MONIO.TEXT 








19EAI 






ADDRDRVR 








igEAl 


41FA 


FF50 




LEA 


DRVR, AO 






19EEI 


2F48 


0004 




MOVE.L 


A0,4(A7) 






19F2I 


4E75 






RTS 








19F4I 
















19F4I 








lORESULT 






19F4I 
















19F4I 


225F 




ZZIORES 


MOVE.L 


(A7)+,A1 






19F6I 








GETSYSC 


AO 


get ioresult 




19F6I 


2060 


FFFC 


ff 


MOVE. L 


-4(A5), AO 






19FAI 


1010 






MOVE. 8 


(AO),DO 






19FCI 


4880 






EXT. W 


DO 






19FEI 


3F00 






MOVE. W 


D0,-(A7) 


and return it 




lAOOl 


4ED1 






JMP 


(Al) 






1A02I 
















1A02I 








ALLOCATE DYNAMIC MEMORY 






1A02I 
















1A02I 


321F 




MNEN 


MOVE. W 


(A7)+.D1 


get number of words into 01 




1A04I 








GETNP 


AO 


get current heap top in AO 




1A04I 


206D 


FFF4 


» 


MOVE. L 


-12(A5),A0 






1A08I 


225F 






MOVE. L 


(A7)*, Al 
AO, ( Al ) 


get address of ptr param in Al 




lAOAl 


2288 






MOVE. L 


set pointer param to new mem space 




lAOCl 


DOCl 






ADD.M 


D1,A0 


point AO above dyn mem area 




lAOEl 


DOCl 






ADD. M 


Dl, AO 


byte wise 




lAlOl 








PUTNP 


AO 


save new heap top 




lAlOl 


2B48 


FFF4 


« 


MOVE. L 


AO, -12(A5) 






1A14I 


4E75 






RTS 








1A16I 
















1A16I 








MARK HEAP 






1A16I 
















1A16I 


225F 




MMRK 


MOVE. L 


(A7)+,A1 
(Al) 


get address of ptr param in Al 




1A18I 








GETNP 


save top of heap in pointer param 




1A18I 


22AD 


FFF4 


# 


MOVE. L 


-12(A5),(A1) 






lAlCl 


4E75 






RTS 








lAlEl 
















lAlEl 








RELEASE 


HEAP 






lAlEl 
















lAlEl 


205F 




MRLS 


MOVE. L 


(A7) + , AO 
(AO) 


get address of ptr param in AO 




1A20I 








PUTNP 


cut back heap 




1A20I 


2B50 


FFF4 


« 


MOVE. L 


(AO), -12(AS) 






1A241 


4E75 






RTS 








1A26I 
















lA26i 








MEMAVAIL -- number of free words in data area 




1A26I 
















1A26I 


245F 




MEMA 


MOVE. L 


(A7) + , A2 






1A28I 


204F 






MOVE. L 


A7, AO 






lA2At 








GETNP 


Al 






1A2AI 


226D 


FFF4 


« 


MOVE. L 


-12(A5),A1 






1A2EI 


91C9 






SUB. L 


Al, AO 


get number of bytes left 




1A30( 


2008 






MOVE. L 


AO,DO 






1A32I 


0280 


FFFF FFFE 




AND.L 


«$FFFFFFFE, DO 


make into number of words 




1A38I 


E298 






ROR.L 


«1,D0 






1A3AI 


2F00 






MOVE. L 


DO, -(A7) 


return number of words 




1A3CI 


4ED2 






JMP 


(A2) 






1A3EI 
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MONITOR 


FILE: MONITOR. 


TEXT 








1A3EI 
















1A3EI 






; 










1A3EI 








. INCLUDE PRTDRVR. TEXT 






1A3EI 






; 










1A3EI 






; 


FILENAME: PRTDRVR 






1A3EI 






; 






















/ 
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Paqs 043 



1A3EI 
















1A3EI 
















1A3EI 








DO -- unit number word 






1A3EI 








Dl -- b 


uffer address lonq 






1A3EI 








D2 -- number bytes word 






1A3EI 








D3 -- async parm, blocktf long 






1A3EI 








AO -- a 


ddress of base long 






1A3EI 
















1A3EI 


0246 


OOOE 


=»RTDRVR 


ANDI 


»$E, D6 


force entry type for indexed 


jump 


1A42I 


4EFB 


60** 




JMP 


ACTNTBL(D6) 


and do it 




1A46I 
















1A44* 


02 














1A46I 






(VCTNTBL 










1A46I 


60** 






BRA. S 


PRTREAD 






1A48I 


60** 






BRA.S 


PRTWRT 






1A4AI 


60** 






BRA. S 


PRTCLR 






1A4CI 


4E71 






NOP 




no entry here 




lA4Et 








BRA.S 


PRTBUSY 






1A4EI 


4241 




'RTBUSY 


CLR 


Dl 


assume unitbusy is false 




1A46* 


08 














1A50I 


6000 


XoKXiXc 


=RTREAD 


BRA 


PRTEXIT 






1A4A* 


08 














1A54I 


48E7 


FCOO 


=RTCLR 


MOVEM. L 


D0-D5, -(A7) 






1A58I 


61** 






BSR.S 


PRTSETUP 






1A5AI 


183C 


0011 




MOVE. B 


tt$ll,D4 






1A5E1 


6100 


HotoXXC 




BSR 


PRTSEND 






1A62I 


4CDF 


003F 




MOVEM. L 


(A7)+,D0-D5 






1A66I 


6000 


**** 




BRA 


PRTEXIT 






1A6AI 
















1A6AI 
















1A6AI 
















1A58* 


10 














1A6AI 




I 


=>RTSETUP 








1A6AI 








GETPRBA 


AO 


get base of pia 




1A6AI 


206D 


FF54 # 




MOVE. L 


-172(A5),A0 






1A6EI 


117C 


OOOE 0060 




MOVE. B 


#$0E,PCR(A0 ) 


set Ctrl CA2 high 




1A74I 


117C 


OOFF 0018 




MOVE. B 


«$FF,DDRA(A0) 


port A bits to output 




1A7AI 


0890 


0003 




BCLR 


#3,0RB(A0) 


bidir drvr to output 




1A7EI 


0890 


0002 




BCLR 


«2,0RB(A0) 


enable the driver 




1A82I 


4E75 






RTS 








1A84I 
















1A84I 
















1A84I 
















1A48* 


3A 














1A84I 


48E7 


FCOO f 


=RTWRT 


MOVEM. L 


D0-D5, -(A7) 






1A88I 


4843 






SWAP 


D3 


get async parm 




1A8AI 


61DE 






BSR.S 


PRTSETUP 






1A8CI 


2241 






MOVE. L 


Dl.Al 






1A8EI 


5342 






SUB. M 


«$1,D2 


adjust for the DBF 
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MONITOR FILE: F 


'RTDRVR 


.TEXT 








1A90I 


0C03 


OOOC 




CMP.B 


»$0C,D3 






1A94I 


67** 






BEG. S 


®10 






1A96I 


1819 


( 


n 


MOVE. B 


(A1)+,D4 


get character into D4 




1A98I 


0803 


0002 




BTST 


«2,D3 ; 


die? 




1A9CI 


66** 






BNE. S 


03 






1A9EI. 


0C04 


0010 




CMP.B 


#$10, D4 ; 


is it a die character 




1AA2I 


66** 






BNE.S 


®3 






1AA4| 


5342 






SUB.W 


#1,D2 ; 


adjust character count 




1AA6I 


4244 






CLR.W 


D4 






1AA8I 


1819 






MOVE.B 


(A1)+,D4 ; 


get # of spaces to send 




lAAAl 


0404 


0020 




SUB.B 


«$20, D4 






lAAEl 


3A04 






MOVE. W 


D4, D5 






lABOl 


183C 


0020 




MOVE. B 


»$20,D4 ; 


set character to space 




1AB4| 


61** 


c 


H2 


BSR.S 


PRTSEND i 


send the suckers 




1AB6I 


51CD 


FFFC 




DBF 


D5,®2 






lABAl 


60** 






BRA.S 


04 






1AA2* 


18 














1A9C* 


IE 














lABCl 


61** 


C 


53 


BSR.S 


PRTSEND 






lABEl 


0803 


0003 




BTST 


#3,D3 


send LF 




1AC2I 


66** 






BNE.S 


®4 






1AC4I 


0C04 


OOOD 




CMP.B 


#$0D,D4 ; 


was last character a CR 




1AC8I 


66** 






BNE.S 


®4 






lACAl 


183C 


OOOA 




MOVE. B 


#$0A,D4 ; 


set character to LF 




lACEl 


61** 






BSR.S 


PRTSEND 






1AC8* 


06 














1AC2* 


OC 














lABA* 


14 














lADOl 


51CA 


FFC4 C 


P4 


DBF 


D2,ml ; 


are we done yet? 




1AD4I 


60** 






BRA.S 


Sill 






1A94* 


40 














1AD6I 


1819 


C 


SlO 


MOVE. B 


(A1) + ,D4 






1AD8I 


61** 






BSR.S 


PRTSEND ; 


no interpretation to do 




lADAl 


51CA 


FFFA 




DBF 


D2,@10 ; 


more to do? 




1AD4* 


08 














lADEl 


4CDF 


003F a 


911 


MOVEM. L 


(A7)+,D0-D5 






1A68* 


007A 














1A52* 


0090 














1AE2I 


4240 


F 


>RTEXIT 


CLR 


DO ; 


set lORSLT value 




1AE4| 


4E75 






RTS 








1AE6I 
















1AE6I 
















1AE6I 
















1AD8* 


OC 















28 Sep 82 



TPR:M0N11.TEXT 
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lACE* 


16 
















lABC* 


28 
















1AB4* 


30 
















1A60* 


0086 
















1AE6I 


0810 


0000 




PRTSEND 


BTST 


#0,IRB(AO) 






lAEAl 


66FA 








BNE.S 


PRTSEND 


; wait for PE/ 




lAECl 


117C 


007F 


0068 




MOVE. B 


»$7F, IFR(AO) 


; clear CAl flag 




1AF2I 


1144 


0008 






MOVE. B 


D4,ORA(A0) 


; output the data 




1AF6I 


117C 


OOOC 


0060 




MOVE. B 


«$OC,PCR(AO) 
#$OE,PCR(AO) 


; set Ctrl CA2 low 




lAFCl 


117C 


OOOE 


0060 




MOVE. B 


; set Ctrl CA2 high 




1B02I 


0828 


0001 


0068 


91 


BTST 


#1, IFR(AO) 


; CAl set yet 
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MONITOR FILE: 


PRTDRVR 


.TEXT 








1B08I 


67F8 








BEQ. S 


91 






IBOAl 


4E75 








RTS 








IBOCI 








; 










IBOCI 


















IBOCI 








; 










IBOCI 










.INCLUDE FlLPRCl.TEXT 






IBOCI 








5 










IBOCI 










FILENAME F ILPRCl 






IBOCI 


















IBOCi 


















IBOCi 








; 










IBOCI 










FINIT(F 


:FIB; W: WP; RECWORDS: INTEGER ); 




IBOCi 


















IBOCI 


205F 






-INIT 


MOVE. L 


( A7)*,A0 


; return address 




IBOEl 


301F 








MOVE. M 


1 A7)+,D0 


, recwords 




IBIOI 


22SF 








MOVE. L 


rA7)+, Al 


ptr to window 




1B12I 


245F 








MOVE.L 


(A7)*,A2 


, file ptr 




1B14I 


426A 


0006 






MOVE. M 


»0,FSTATE(A2) 


; f state: =f jandw 




1B18I 


422A 


OOOA 






MOVE. B 


«0,FIS0PEN(A2) 
«1,FE0F(A2) 


; f isopen: =f alse 




IBlCl 


1S7C 


0001 


0005 




MOVE. B 


, feof : =true 




1B22I 


157C 


0001 


0004 




MOVE.B 


«1,FE0LN(A2 ) 


feo In: =true 




1B28I 


2489 








MOVE. L 


A1,FWIND0W(A2) 


fwindow:=ptr to window 




1B2AI 


4A40 








TST.W 


DO 






1B2CI 


67** 








BEQ. S 


81 






1B2EI 


0C40 


FFFE 






CMP.W 


«-2,D0 


if recwords = or -2 then 




1B32I 


66** 








BNE.S 


92 






1B2C* 


06 
















1B34I 


4229 


0001 




91 


MOVE. B 


#0, 1(A1 ) 


fwindowT[l ]: =nu 1 1 




1B381 


3S7C 


0001 


0008 




MOVE. M 


#1,FRECSZ(A2 ) 


frees ize: =1 




1B3E( 


4A40 








TST.W 


DO 


if recwords = then 




1B40I 


66** 








BNE.S 


FINITX 






1B42I 


357C 


0001 


0006 




MOVE. U 


«1,FSTATE(A2) 


f state: =fneedchar 




1B48I 


60** 








BRA.S 


FINITX 






1B32* 


16 
















1B4AI 


4A40 






92 


TST.W 


DO 


if recwords < then 




1B4CI 


6A** 








BPL.S 


93 






1B4EI 


4292 








MOVE. L 


«NIL,FWIND0W(A2) 
«0,FRECSZ(A2) 


f window: =n i 1 




1B50I 


426A 


0008 






MOVE.W 


frees ize: =0 




1B54I 


60** 








BRA.S 


FINITX 






1B4C* 


08 
















1B56I 


DO 40 




( 


93 


ADD.W 


DO, DO 






1B58I 


3540 


0008 






MOVE. W 


D0,FRECSZ(A2) 


frees ize: =2*recwords 




1B54* 


06 
















1B48* 


12 
















1B40* 


lA 
















1B5C( 


4ED0 




f 


"INITX 


JMP 


(AO) 






1B5EI 


















1B5EI 










SCANTITLE(VAR FTITLE: STRING; 






1B5EI 












VAR FVID: VID; 






IBSEl 












VAR FTID:TID; 






IBSEi 












VAR FBLOCKS: INTEGER; 






IBSEl 












VAR FKIND:FILEKIND): BOOLEAN 




IBSEi 


















IBSEl 










stack 








IBSEl 
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MONITOR FILE: F 


"ILPRCl 


TEXT 








IBSEl 












28 FUNC RESULT 






IBSEl 












24 (9FTITLE 






IBSEl 












20 OFVID 






IBSEl 












16 9FTID 






IBSEl 












12 9FBL0CKS 






IBSEl 












8 (9FKIND 






IBSEl 












4 RETURN ADDRESS 






IBSEl 












Old A6 






IBSEl 


















IBSEl 


4ES6 


FFOO 




jCANTTL 


LINK 


A6,#-2S6 ; 


allocate space for strin9[2SS 


] 


1B62I 


6100 


EDIE 






BSR 


OVFCHK 






1B66I 


206E 


0014 






MOVE. L 


20(A6),A0 






1B6AI 


4210 








MOVE. B 


»0,(A0) ; 


fvid: =" ■ 




1B6CI 


206E 


0010 






MOVE.L 


16(A6), AO 






1B70I 


4210 








MOVE. B 


«0,(A0) ; 


ftid: =' ' 




1B72I 


206E 


OOOC 






MOVE. L 


12(A6),A0 






1B76I 


4250 








MOVE. W 


«0, (AO) ; 


fblocks: =0 




1B78I 


206E 


0008 






MOVE. L 


8(A6), AO 






1B7CI 


4228 


0001 






MOVE. B 


#UNTYPFL, 1(A0) ; 


f k ind: =untypedf i le 




1B80I 


42AE 


OOIC 






MOVE.L 


#0,28(A6) ; 
24(A6).A0 ; 


scant it le: =false 




1B84I 


206E 


0018 






MOVE. L 


get address of string 




1B88I 


43EE 


FFOO 






LEA 


-256(A6), Al ; 


get address of string copy 




1B8CI 


1018 








MOVE. B 


{AO)+,DO ; 


get string length 




1B8EI 


6700 


w*** 






BEQ 


SCANTTLX ; 


exit if zero 





28 Sep 


82 




1B92I 


2D49 


0018 


1B96I 


12C0 




1B98I 


12D8 




1B9AI 


5300 




1B9CI 


66FA 




1B9EI 


266E 


0014 


1BA2I 


206E 


0018 


IBA61 


7201 




1BA8I 


B210 




IBAAl 


6E** 




IBACl 


1030 


1000 


IBBOl 


OCOO 


0020 


1B64I 


6E** 




IBB6I 


6100 


**** 


IBBAI 


60EC 




1BB4* 


06 




IBBCl 


6100 


»c>Xl|ciil 


IBCOl 


1180 


1000 


1BC4I 


5241 




IBCSl 


60E0 




IBAA* 


IC 




IBC81 


4A10 




IBCAl 


6700 


l**** 


IBCEl 


0C28 


002A 0001 


1BD4I 


66>x>f 




IBD6I 






IBD61 


226D 


FFD4 


IBDAl 


244B 




IBDCl 


24D9 




IBDEl 


24D9 




IBEOl 


24D9 
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MONITOR 


1BE2I 


24D9 




1BE4I 


24D9 




IBE6I 


24D9 




IBE81 


7201 




IBEAl 


6100 


>X>tl>K>K 


1BD4* 


18 




IBEEl 


4281 




IBFOI 


60 ■*<■'< 




1BF2I 


5201 




1BF4I 


0C30 


003A 1000 


IBFAl 


67** 




IBFO* 


OA 




IBFCl 


B210 




IBFEl 


66F2 




ICOOl 


4281 




1C02I 


60** 




IBFA* 


08 




1C04I 


OCOl 


0001 


ICO81 


66** 




1C02* 


06 




ICOAi 


244B 




ICOCl 


4A12 




ICOEl 


66** 




IClOl 






IClOl 


226D 


FFCC 


1C14I 


24D9 




ICI61 


24D9 




ICI81 


24D9 




IClAl 


24D9 




IClCl 


24D9 




IClEl 


24D9 




leOE* 


10 




1C20I 


OCOl 


0001 


1C24I 


66** 




1C26I 


6100 


**** 


1C24* 


04 




1C2AI 


60** 




1C08* 


22 




1C2CI 


5301 




1C2EI 


OCOl 


0017 


1C32I 


6E** 




1C34I 


3F01 




1C36I 


2F08 




1C38I 


3F3C 


0001 


1C3CI 


3F01 




1C3EI 


2F0B 




1C40I 


6100 


«>tl>t<H< 


1C44I 


361F 




1C46I 


5243 




1C48I 


7201 




1C4AI 


6100 


**** 


1C4EI 


5303 




ICSOl 


6SF6 




1C32* 


IE 




1C2A* 


26 
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1C52I 


4A13 




1C54I 


6700 


>ti«>XDi 


1C58I 


4281 




1C5AI 


60** 
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FILE: 



MOVE. L 
MOVE.B 

SCNSTRC MOVE.B 
SUB. B 
BNE. S 
MOVE. L 
MOVE. L 
MOVE. L 

®1 CMP.B 
BGT. S 
MOVE. B 
CMP.B 
BGT.S 
BSR 
BRA. S 

®3 BSR 

MOVE. B 

ADD.M 

BRA.S 

FAIRTTL TST.B 
BEQ 
CMP.B 
BNE. S 
GETSYV 
» MOVE. L 
MOVE. L 
MOVE. L 
MOVE. L 
MOVE.L 
FILPRCl.TEXT 



MOVE. L 
MOVE.L 
MOVE. L 
MOVE. L 
BSR 

NOTSTAR MOVE.L 
BRA.S 

@0 ADD.B 

CMP.B 
BEQ. S 



®7 



®2 



®3 



Si4 



SUB.B 
CMP.B 
BGT.S 
MOVE. Vi 
MOVE.L 
MOVE. W 
MOVE. W 
MOVE. L 
BSR 

MOVE. W 
ADD.W 
MOVE. L 
BSR 
SUB.B 
BNE. S 



FILE: FILPRCl.TEXT 



A1,24(A6) 

DO, (Al) + 

(A0)+,(A1)* 

#1,D0 

SCNSTRC 

20(A6),A3 

24(A6),A0 

«1,D1 

(A0),D1 

FAIRTTL 

0(A0,D1.W), DO 

»$20,D0 

(33 

DELICH 



UPSHFT 

D0,0(A0,D1.W) 

#1,D1 

91 

(AO) 

SCANTTLX 
«42, 1(A0) 
NOTSTAR 
Al 

-44(A5), Al 
A3,A2 

(Al )+, (A2) + 
(Al )+, (A2 ) + 
(Al)*, (A2U 



save pointer to the copy 
copy the length 
copy the string 



SFv id 
®f t it le 
i:=l 
while i<= len( f t it le ) do 

ch: =ft it le[ i ] 
if ch<=' ' then 

delete(rt it le, 1, i ) 



upsh if t(ch ) 
ft it le[ i ]: =ch 
i:=i + l 



if len(ft it le )=0 then exit 
if ftitle[l3 = • *' then 
f V id: =syv id 




»0,D1 

®7 

«1,D1 

«58,0(A0,D1.W) 

91 

(A0),D1 

®0 

#0,D1 

92 

«1,D1 

@5 



delete(ftit le, 1, 1 ) 



i: =pos( ' : ' , ft itle ) 



CMP.B 
BNE. S 
MOVE. L 
BRA.S 

CMP.B 
BNE. S 

MOVE. L 
TST.B 
BNE. S 
GETDKV 
MOVE. L 
MOVE. L 
MOVE. L 
MOVE. L 
MOVE. L 
MOVE. L 
MOVE. L 

CMP.B 
BNE. S 
BSR 



BRA.S TSTFVID 




if i<=l then 

if len(fvid)=0 then 
f V id: =dkv id 



«1,D1 
#23, Dl 
TSTFVID 
Dl, -(A7) 
AO, -(A7) 
#1, -(A7) 
Dl, -(A7) 
A3, -(A7) 
TTLCOPY 
(A7)+,D3 
«1,D3 
»1,D1 
DELICH 
»1,D3 



if i=l then 

delete(ftitle, 1, 1 ) 

if i-1 <= vidleng then 

f V id: =copy( f t it le, 1, i-1) 
delete(f t it le, 1, i ) 



TSTFVID TST.B 


(A3) 


BEQ 


SCANTTLX 


MOVE. L 


»0,D1 


ERA. S 


914 



if len(fvid)=0 then exit 
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- 


1C5CI 


5241 




@0 


ADO. W 


#1,D1 




1C5EI 


0C30 


005B 1000 




CMP.B 


»91,0(A0,D1.W) 


i: =pos(' [' , ftitle) 


1C64I 


67** 






BEQ. S 


el 




1C5A* 


OA 












1C66I 


B210 




914 


CMP.B 


(A0),D1 




1C68I 


66F2 






BNE.S 


90 




1C6AI 


4281 






MOVE. L 


»0,D1 




1C6CI 


60** 






BRA.S 


92 


if i>0 then 


1C64* 


08 












1C6EI 


5301 




91 


SUB.B 


#1,D1 


i: = i-l 


1C70I 


60** 






BRA.S 


93 


else 


1C6C* 


04 












1C72I 


1210 




92 


MOVE. B 


(A0),D1 


i: =length(ftitle ) 


1C74| 


4282 






MOVE. L 


«0,D2 


ok: =f a Ise 


1C70* 


04 












1C76I 


OCOl 


OOOF 


®3 


CMP.B 


#15, Dl 


if i <= tidleng then 


1C7AI 


6E00 


I**** 




BGT 


DOSUFIX 




1C7EI 


4A01 






TST.B 


Dl 


if i>0 then 


1C80I 


67** 






BEQ.S 


95 




1C82I 


2448 






MOVE. L 


AO, A2 


get address of src 


1C84I 


226E 


0010 




MOVE. L 


16(A6),A1 


get address of dst 


1C88I 


4A1A 






TST.B 


(A2). 


skip src string length 


1C8AI 


1001 






MOVE. B 


D1,D0 


get string length 


1C8CI 


12C0 






MOVE. B 


DO, (Al)+ 
(A2V,(A1)* 


copy string length 


1C8EI 


12DA 




94 


MOVE. B 


ftid:=copy(ftitle, 1, i ) 


1C90I 


5300 






SUB.B 


«1,D0 




1C92I 


66FA 






BNE.S 


94 




1C94I 


1410 






MOVE. B 


(A0),D2 


delete(ftitle, 1, i) 


1C96I 


9401 






SUB.B 


D1,D2 




1C98I 


DOCl 






ADD.M 


D1,A0 




1C9AI 


1082 






MOVE. B 


D2,(A0) 




1C80* 


lA 












1C9CI 


4A10 




05 


TST.B 


(AO) 


if len(ftitle)=0 then 


1C9EI 


ee*'* 






BNE.S 


013 




ICAOl 


7401 






MOVE.L 


«1,D2 


ok: =true 


1CA2I 


6000 


DlMlKdtl 




BRA 


DOSUFIX 


else 


1C9E* 


06 












1CA6I 


4282 




913 


MOVE. L 


»0,D2 


ok:=false 


1CA8I 


4283 






MOVE. L 


#0,D3 




iCAAl 


60** 






BRA.S 


915 




ICACl 


5203 




96 


ADD.B 


«1,D3 




ICAEl 


0C30 


005D 3000 




CMP.B 


»93,0(A0,D3.W) 


rbrack: =posC ]' , ft itle ) 


1CB4I 


67** 






BEQ.S 


97 




ICAA* 


OA 












1CB6I 


B610 




915 


CMP.B 


(A0),D3 




1CB8I 


66F2 






BNE.S 


96 




ICBAl 


4283 






MOVE. L 


«0,D3 




1CB4* 


06 












ICBCl 


0C03 


0002 


97 


CMP.B 


«2,D3 


if rbrack=2 then 


ICCOl 


66** 






BNE.S 


98 




1CC2I 


7401 






MOVE. L 


#1,D2 


ok: =true 
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1CC4I 


60** 






BRA.S 


DOSUFIX 


e Ise 


ICCO* 


04 












1CC61 


6F** 




@8 


BLE. S 


DOSUFIX 


if rbrack>2 then 


1CC8I 


7401 






MOVE. L 


#1,D2 


ok: =truB 


ICCAi 


7202 






MOVE. L 


«2,D1 


i:=2 


ICCCI 


4240 




99 


CLR.W 


DO 


repeat 


ICCEi 


1030 


1000 




MOVE. B 


0(A0,D1.W),D0 


ch: =ftltle[ i] 


1CD2I 


OCOO 


0030 




CMP.B 


#'0',D0 


if ch in DIGITS then 


1CD6I 


6D** 






BLT.S 


910 




1CD8I 


OCOO 


0039 




CMP.B 


«'9',D0 




ICDCl 


6E** 






BGT.S 


910 




ICDEi 


226E 


OOOC 




MOVE. L 


12(A6),A1 




1CE2I 


3811 






MOVE.W 


(Al ),D4 




1CE4I 


C9FC 


OOOA 




MULS 


#10, D4 


fblocks:=fblocks*10 


ICEBi 


D840 






ADD.W 


D0,D4 


f blocks: =fblocks*ord(ch ) 
fblocks:=fblocks-ord('0' ) 


ICEAl 


0444 


0030 




SUB.W 


#'0',D4 


ICEEl 


3284 






MOVE. W 


D4, (Al ) 




ICFOi 


60** 






BRA.S 


911 


else 


ICDC* 


14 












1CD6* 


lA 












1CF2I 


4282 




910 


MOVE. L 


«0,D2 


ok:=false 


ICFO* 


02 












1CF4I 


5201 




911 


ADD.B 


#1,D1 


i:=i + l 


1CF6I 


B601 






CMP.B 


D1,D3 


until i=rbrack or not ok 


1CF8I 


67** 






BEQ.S 


912 




ICFAl 


4A42 






TST.W 


D2 




ICFCl 


66CE 






BNE.S 


99 




1CF8* 


04 












ICFEl 


OCOl 


0003 


912 


CMP.B 


»3,D1 


if i=3 then 


1D02I 


66** 






BNE.S 


DOSUFIX 




1D04I 


0C03 


0003 




CMP.B 


«3,D3 


if rbrack=3 then 


1D08I 


66«« 






BNE.S 


DOSUFIX 




IDOAl 


5301 






SUB.B 


»1,D1 


if ft it le[ i-1 ]=' *' then 


IDOCl 


0C30 


002A 1000 




CMP.B 


«42,0(A0,D1. W) 




1D12I 


66** 






BNE.S 


DOSUFIX 




1D14I 


226E 


OOOC 




MOVE. L 


12(A6), Al 


fblocks:=-l 


1DI8I 


32BC 


FFFF 




MOVE. M 


»-l,(Al) 




IDlCl 


7401 






MOVE. L 


#1,D2 


ok: =true 


1D12* 


OA 












1D08* 


14 












1D02* 


lA 












1CC6* 


56 
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1CC4* !)8 












1CA4* 007A 












1C7C* 00A2 












IDlEi 2D42 


OOIC 


DOSUFIX 


MOVE. L 


D2,28(A6) 


; scant it le: =ok 


1D22I 6700 


■KKokiti 




BEQ 


SCANTTLX 


; if not ok then exit 


1D26I 206E 


0010 




MOVE. L 


16(A6),A0 




1D2AI 1010 






MOVE. B 


(AO),DO 




1D2CI OCOO 


0005 




CMP.B 


#5, DO 


; if len(f tid ) > 5 than 


1D30I 6D00 


**** 




BLT 


SCANTTLX 




1D34I 2F08 




DOSFX 


MOVE. L 


AO, -(A7) 


; push source string address 


1D36I 5940 






SUB. W 


«4,D0 


; compute length-4 


1D38I 3F00 






MOVE. W 


DO, -(A7) 
#5, -(A7) 


; push starting index 


1D3AI 3F3C 


0005 




MOVE. M 


; push size to copy 
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1D3EI 2F2E 


0018 




MOVE. L 


24(A6),-(A7) 


; push address of result 


1D42I 6100 


**** 




BSR 


TTLCOPY 




1D46I 246E 


0008 




MOVE. L 


8(A6),A2 




1D4AI 206E 


0018 




MOVE. L 


24(A6), AO 




1D4EI 43FA 


mm** 




LEA 


SFXTEXT, Al 




1D52I 6100 


^^%■»n^ 




BSR 


CMPSFX 




1D56I 67** 






BEQ. S 


91 




1D58I 157C 


0003 0001 




MOVE. B 


«TEXTFILE, 1(A2) 




IDSEl 60** 






BRA.S 


SCANTTLX 




1D56* 08 












1D60I 206E 


0018 


91 


MOVE. L 


24(A6),A0 




1D64I 43FA 


HnKDIitl 




LEA 


SFXCODE, Al 




1D68I 6100 


I*<«1K« 




BSR 


CMPSFX 




1D6CI 67** 






BEQ. S 


92 




1D6EI 157C 


0002 0001 




MOVE. B 


#CODEFILE, 1(A2) 




1D74| 60** 






BRA.S 


SCANTTLX 




1D6C* 08 












1D76I 206E 


0018 


92 


MOVE. L 


24(A6), AO 




1D7AI 43FA 


*Xl*>K 




LEA 


SFXBACK, Al 




1D7EI 6100 


DcitoKKc 




BSR 


CMPSFX 




1D82I 67** 






BEQ. S 


93 




1D84| 157C 


0003 0001 




MOVE. B 


«TEXTFILE, 1(A2) 




1D8AI 60** 






BRA.S 


SCANTTLX 




1D82* 08 












1D8CI 206E 


0018 


93 


MOVE. L 


24(A6), AO 




1D90I 43FA 


**** 




LEA 


SFXINFO, Al 




1D94| 6100 


iXitiittiti 




BSR 


CMPSFX 




1D98I 67** 






BEQ. S 


94 




1D9A1 157C 


0004 0001 




MOVE. B 


#INFOFILE, 1(A2) 




IDAOl 60** 






BRA.S 


SCANTTLX 




1D98* 08 












1DA2I 206E 


0018 


94 


MOVE. L 


24(A6), AO 




1DA6I 43FA 


■koolok 




LEA 


SFXGRAF, Al 




IDAAl 6100 


mitlDlDc 




BSR 


CMPSFX 




IDAEl 67** 






BEQ. S 


95 




IDBOl 157C 


0006 0001 




MOVE. B 


»GRAFFILE, 1(A2) 




1DB6I 60** 






BRA.S 


SCANTTLX 




IDAE* 08 












1DB8I 206E 


0018 


95 


MOVE. L 


24(A6), AO 




IDBCl 43FA 


**** 




LEA 


SFXFOTO, Al 




IDCOl 6100 


**>K* 




BSR 


CMPSFX 




1DC4I 67** 






BEQ. S 


SCANTTLX 




1DC6I 157C 


0007 0001 




MOVE. B 


»FOTOFILE, 1(A2) 




1DC4* 06 












1DB6* 14 












IDAO* 2A 












1D8A* 40 












1D74* 56 












1D5E* 6C 












1D32* 009A 












1D24* 00A8 












1C56* 0176 












IBCC* 0200 












1B90* 023C 












IDCCI 




SCANTTLX 
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IDCCi 4E5E 






UNLK 


A6 




IDCEl 205F 






MOVE. L 


(A7)+,A0 ; 


pop return address 


IDDOl DEFC 


0016 




ADD. M 


»22,A7 ; 


delete parameters 


1DD4I 4ED0 






JMP 


(AO) 




1DD6I 




; 








1D50* 0086 












1DD61 05 




SFXTEXT 


.BYTE 


5 




1DD7I 2E 54 


45 58 54 




.ASCII 


'.TEXT' 




IDDCl 




; 








1D66* 0076 












IDDCl 05 




SFXCODE 


.BYTE 


5 




IDDDl 2E 43 


4F 44 45 




.ASCII 


'.CODE' 




1DE2I 




; 








1D7C* 0066 












1DE21 05 




SFXBACK 


.BYTE 


5 




1DE3I 2E 42 


41 43 4B 




.ASCII 


'.BACK' 




1DE8I 




; 








1D92* 0056 












1DE8I 05 




SFXINFO 


.BYTE 


5 




1DE9I 2E 49 


4E 46 4F 




.ASCII 


'. INFO' 




IDEEl 




; 








1DA8* 0046 
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IDEEl 


05 






SFXGRAF 


.BYTE 


5 




IDEFl 


2E 47 52 41 


46 




.ASCII 


• .GRAF' 




1DF4| 
















IDBE* 


0036 














1DF4I 


05 






SFXFOTO 


.BYTE 


5 




1DF5I 


2E 46 


4F 54 


4F 




.ASCII 


'.FOTO* 




IDFAl 
















IDFAl 










DELICH 


-- deletes one character from FTITLE | 


IDFAl 
















IDFAl 










Dl 


is the character 


position to delete from 


IDFAl 










AO 


is a ptr to FTITLE | 


IDFAj 
















IDFAl 










A1-A2 


used as scratch 




IDFAl 










D2 


used as scratch 




IDFAl 
















1040* 


OlAE 














1C28* 


01D2 














IBEC* 


020E 














1BB8* 


0242 














IDFAl 


5310 




DELICH 


SUB.B 


«1,(A0) 


; decrement length 


IDFCl 


3401 








MOVE. W 


D1,D2 




IDFEl 


9410 








SUB.B 


(A0),D2 


; IF I<=LEN(FTITLE) THEN 


lEOOl 


6E** 








BGT.S 


94 




1E02I 


4402 








NEG.B 


02 




1E04I 


45F0 


1000 






LEA 


0(A0,D1.W),A2 


; dst ptr 


1E08I 


43F0 


1001 






LEA 


1(A0,D1.W), Al 


; src ptr 


lEOCl 


14D9 




@2 


MOVE. B 


(Al )+, (A2)+ 


; copy each byte 


lEOEl 


5342 








SUB.N 


#1,D2 




lElOl 


64FA 








BCC.S 


@2 




lEOO* 


10 














1E12I 


4E75 




S4 


RTS 






1E14I 
















1E14I 










CMPSFX 


--compares 5 chars at AO to ,5 chars at Al | 
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.TEXT 






1E14I 












equal or not equal is set into DO 


1E14I 
















1DC2* 


0052 














IDAC* 


0068 














1D96* 


007E 














1D80* 


0094 














1D6A* 


OOAA 














1D54* 


OOCO 














1E14I 


4240 




CMPSFX 


MOVE. W 


«0,D0 


; assume false 


1E16I 


B388 








CMPM. L 


(A0)+,(A1)+ 


; first 4 equal ? 


1E18I 


66** 








BNE.S 


CMPSFXX 




lElAl 


B348 








CMPM. W 


(A0)*,(A1)+ 


; next 2 equal ? 


lElCl 


66** 








BNE.S 


CMPSFXX 




lElEl 


7001 








MOVE. L 


#1,D0 


; result is true 


lElC* 


02 














1E18* 


06 














1E20I 


4A40 




CMPSFXX 


TST.W 


DO 




1E22I 


4E75 








RTS 






1E24I 
















1E24I 










TTLCOPY 


-- DST:=:COPY(SRC, 


I.J) 


1E24I 
















1E24| 








Parameters: ST. L - Source strln 


g address 


1E24I 










ST. W - Starting ind 


ex 


1E24I 










ST. W - Size to copy 




1E24| 










ST.L - Address of result | 


1E24I 
















1D44* 


OOEO 














1C42* 


01E2 














1E24| 


48E7 


EOCO 




PTLCOPY 


MOVEM. L 


D0-D2/A0-A1,-(SP) 




1E28I 


206F 


0018 






MOVE. L 


24(SP), AO ; 


Address for result 


1E2CI 


302F 


OOIC 






MOVE. N 


28(SP),D0 ; 


Size to copy 


1E30I 


322F 


OOIE 






MOVE. W 


30(SP),D1 ; 


Index 


1E34I 


5341 








SUBQ. M 


«1,D1 




1E36I 


226F 


0020 






MOVE. L 


32(SP),A1 ; 


Address of source string 


1E3AI 


4242 








CLR.W 


D2 ; 


to get length of source 


1E3CI 


1419 








MOVE. B 


(A1)*,D2 ; 




1E3EI 


9441 








SUB. W 


D1,D2 




1E40I 


9440 








SUB.W 


D0,D2 




1E42I 


6D** 








BLT. S 


Y. ERROR ; 


Error if too little source 


1E44I 


D2C1 








ADDA. N 


Dl.Al ; 


Point to first byte to copy 


1E46I 


lOCO 








MOVE. B 


DO, (A0)+ ; 


Store result length 


1E48I 


60** 








BRA. S 


Y. TEST 




1E4AI 


10D9 






f. LOOP: 


MOVE. B 


(A1) + ,(A0)* 




1E48* 


02 














1E4CI 


5340 






r'.TEST: 


SUBQ. N 


#1,D0 




1E4EI 


6AFA 








BPL.S 


Y. LOOP 




1E50I 


2F6F 


0014 0020 


r. LEAVE 


MOVE. L 


20(SP),32(SP) ; 


Set up return address 


1E56I 


4CDF 


0307 






MOVEM. L 


(SP)+,D0-D2/A0-A1 




lESAj 


DEFC 


OOOC 






ADD.N 


»12,SP ; 


Delete parameters 


1E5EI 


4E7S 








RTS 






1E42* 


IC 














1E60I 


4210 






Y. ERROR 


CLR.B 


(AO) ; 


Set result to null for now 


1E62I 


60EC 








BRA.S 


Y. LEAVE ; 


And return 


1E64I 
















1E64I 






1 


-REEPROC 






PAGE 


- 80 


MONITOR FILE: f 


-ILPRCl 


TEXT 






1E64I 


4E4F 








TRAP 


»$F ; 


Not to be used (was FETCHDR = $120) 


1E66I 














____-___^.^___.^_^____-__^^__________^.^______^_^_ J 
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1E66 

1E66 

1E66 

IE661 

1E66 

1E66 

1E66 

1E68 

1E6C 

1E70 

1E72 

1E76 

1E78 

1E7C 

1E7B 

1E82 

1E7C* 

1E76* 

1E70* 

1E84I 

1E82* 

IE881 

1E8AI 

IE8CI 

1E8CI 

IE8CI 

IE8C1 

IE8CI 

IE8C1 

IE8C1 

IE8C1 

1E90I 

1E92I 

lEgei 

1E98I 
1E9CI 
1E9EI 
lEAOl 
1EA2I 
1EA2I 
1EA2I 
1EA2I 
1EA2I 
1EA2I 
1EA2| 
1EA2I 
1EA2I 
1EA2I 
1EA2I 
1EA2I 
1EA2I 
1EA2I 
1EA2I 
PAGE 



3F02 

0257 

0C57 

67** 

0C57 

67** 

0C57 

62** 

44FC 

60** 

06 

DC 

12 

44FC 

04 

544F 

4E75 



OOIF 
0004 

0005 

0008 

0004 



0000 



0442 0020 
3F02 . 
0257 dOlF 
EA4A ' 
C5FC 0015 
045F 
E74A 
4E75 



UNITISBLKD(LUNIT: INTEGER) 
parametars 

D2 lunit 



UNITISB MOVE.W 


D2,-(A7) 


AND.W 


#$1F, (A7) 


CMP.W 


#4, (A7) 


BEQ. S 


91 


CMP.W 


#5, (A7) 


BEQ.S 


®1 


CMP.W 


#8,(A7) 


BHI.S 


®1 


MOVE 


»4,CCR 


BRA.S 


(82 



get just unjt« 



cc=Z 



MOVE 



«0,CCR 



cc=NZ 



92 



ADD.W «2,A7 
RTS 

UT17IDX 

Input: D2 = dev#*32+un it# 

Output: D2 a (dev«-l )*21*8 + unit«*8 



UT17IDX SUB.W #$20, D2 

MOVE.W D2, -(A7) 

AND.W #$1F, (A7) 

LSR. W #DEVNSHF, D2 

MULS «MAXU+1,D2 

ADD.W (A7)+,D2 

LSL.W #3,02 
RTS 



subtract 1 from dev« 

form unit« 

form dav»*21 

multiply by size of UT17vld 



FTCHDIR(LUNIT: INTEGER; VAR DIRBUF: DIRECTORY ) 
parameters 



D2 
A2 



lunit 

address of directory 



-2 

-6 
-8 
-12 



length 

b lock 

f irst: boo lean 

nextaddr 
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Note: iorslt for the I/O is returned in D6 
FILE: FILPRCl.TEXT 



1EA2 
1EA6 
lEAA 
lEAC 
lEAE 
1EB2 
1EB4| 
lEAC 
1EB4 
1EB8 
lEBA 
lECO; 
lECO 
1EC4 
lECA 
1ED2 
1ED8 
lEDC 
lEEOl 
1EE2I 
1EE4| 
1EE4 
1EE4 
1EE4 
1EE8 
lEEA 
IEEE 
1EF2 
1EF4 
1EF8 
lEFAi 
lEFAl 
lEFA 
lEFA 
lEFE 
IFOO 
1EB2 
1F02 
1F04 
1F08 



4E56 FFF4 
48E7 FCD8 
61BA 
66** 

303C 0002 
60** 

06 

266D FFF4 

244B 

D7FC 0000 0800 

2B4B FFF4 

3D7C 0800 FFFE 

2D7C 0000 0002 FFFA 

307C 0001 FFF8 

2D4A FFF4 

6100 E9A4 

3F02 

2F0A 



222E FFF4 
3F02 

342E FFFE 
262E FFFA 
7C01 

6100 FA66 
4E90 



6100 FAD4 

245F 

3 4 IF 

4E 

3C00 

6700 **** 



FTCHDIR LINK A6,«-12 

MOVEM.L D0-D5/A0/A1/A3/A4, -(A7 



®\7 



BSR 


UNITISB 


BNE.S 


OO 


MOVE. W 


»IBADUNT,DO 


BRA.S 


03 


GETNP 


A3 


MOVE. L 


-12(A5),A3 


MOVE. L 


A3, A2 


ADD. L 


»DIRSZ,A3 


PUTNP 


A3 


MOVE. L 


A3,-12{A5) 


MOVE. W 


#DIRSZ, -2(A6) 


MOVE. L 


«DIRDISK, -6(A6) 


MOVE. W 


#1,-8(A6) 


MOVE. L 


A2, -12(A6) 


BSR 


OVFCHK 


MOVE. W 


D2, -(A7) 
A2, -(A7) 


MOVE. L 


read th 


e directory 


MOVE.L 


-12(A6),D1 


MOVE. W 


D2, -(A7) 


MOVE. W 


-2(A6),D2 
-6(A6),D3 


MOVE. L 


MOVE. L 


«INBIT,D6 


BSR 


GETUNIT 


JSR 


(AO) 



save registers 



®3 



test iorslt 

BSR lOEXIT 
MOVE.L (A7)+,A2 
MOVE.W (A7) + ,D2 

MOVE.W D0.D6 
BEQ ®1 



allocate four blocks for the directori 



length 

b lock 

f irst: =true 

nextaddr: =address of directory buffer 

save dev»/unit« 

save address of directory buffer 



address of directory buffer 

dev#/un i t# 

length 

b lock 

save UREQ in D6 

get unit number and validate 

go to dr iver 



record iorslt 

restore address of directory buffer 

restore dev#/unit» 

save iosrlst in temp 
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TPR:MONH.TEXT 



Pmqa 050 



1F08I 








. 


if error then log out 


this unit 8. 


clear uvid (in utbl or UT17 ) 


1F08I 








; 










1F08I 


3802 








MOVE. M 


D2,D4 






IFOAl 


E64C 








LSR.W 


«3,D4 






IFOCI 


0244 


003C 






AND.M 


«$3C,D4 






IFlOl 










GETLOGN 


Al 






IFlOi 


226D 


FF60 




U 


MOVE. L 


-160(A5), Al 






1F14I 


2A31 


4000 






MOVE. L 


0(A1,D4.W),D5 






1F18I 


0585 








BCLR 


D2,D5 


. 


log it out 


IFlAl 


2385 


4000 






MOVE, L 


D5,0(A1,D4.W) 






IFlEl 


0C42 


OOIF 






CMP.W 


«$1F,D2 




if dev« < 1 then 


1F22I 


62** 








BHI.S 


912 


. 


beg in 


1F24I 










GETUTBL 


AO 






1F24I 


206D 


FFBA 




» 


MOVE. L 


-70(A5), AO 






1F28I 


C5FC 


OOOC 






MULS 


«UTBLSIZ, D2 






PAGE 


- 82 


MONITOR 


FILE: FILPRCl 


.TEXT 








1F2CI 


41F0 


2000 






LEA 


UVID(A0,D2),A0 




uv id{un it» ): =' ' and exit 


1F30I 


4298 






911 


MOVE. L 


«0, (A0)+ 
«0, (AO )+ 






1F32I 


4298 








MOVE. L 




end 


1F34I 


6000 


**** 






BRA 


FTCHDRX 




else 


1F38I 








®12 


GETUT17 


AO 




begin 


1F22* 


14 
















1F38I 


206D 


FF5C 




# 


MOVE. L 


-164(A5), AO 






1F3CI 


6100 


FF4E 






BSR 


UT17IDX 






1F40I 


41F0 


2000 






LEA 


UT17VID(A0, D2) 


,A0 ; 


uv id(dev», unit# ): =' ' and exit 


1F44I 


60EA 








BRA. S 


911 


; 


end 


1F46I 








; 










1F46I 


4A6E 


FFF8 




(916 


TST.W 


-8(A6) 






1F4AI 


67** 








BEQ.S 


92 






1F4CI 


302A 


0010 






MOVE. M 


DNUMFLS(A2),D0 






IFSOl 


5440 








ADD.M 


«2,D0 






1F52I 


CIFC 


OOIA 






MULS 


•DELENG, DO 






1F56I 


0440 


0800 






SUB.M 


»DIRSZ,DO 






1F5AI 


6B00 


tn*** 






BMI 


92 






1F5EI 


0640 


OlFF 






ADD.M 


•511, DO 






1F62I 


E048 








LSR.W 


#8, DO 






1F64I 


E248 








LSR.W 


»1,D0 






1F66I 


0C40 


0024 






CMP.W 


#36, DO 






1F6AI 


6D** 








BLT. S 


918 






1F6CI 


303C 


0024 






MOVE. W 


#36, DO 






1F6A* 


04 
















1F70I 


CIFC 


0200 




918 


MULS 


»512,D0 






1F74I 


3D40 


FFFE 






MOVE. W 


DO, -2(A6) 


; 


length 


1F78I 










GETNP 


A3 






1F78I 


2660 


FFF4 




« 


MOVE. L 


-12(A5),A3 






1F7CI 


D7C0 








ADD.L 


DO, A3 


; 


grow directory on the heap 


1F7EI 










PUTNP 


A3 






1F7EI 


2B4B 


FFF4 




« 


MOVE. L 


A3, -12(A5) 






1F82I 


2D7C 


0000 


0006 


FFFA 


MOVE. L 


#DIRDISK+4, -6( 


^6) ; 


block 


1F8AI 


426E 


FFF8 






MOVE. W 


«0, -8(A6) 




first: =false 


1F8EI 


06AE 


0000 


0800 


FFF4 


ADD.L 


«DIRSZ, -12(A6) 




nextaddr: =nextaddr+2048 


1F96I 


6000 


FF44 






BRA 


917 






1F9AI 


















1F9AI 










test for male/female directory 




1F9AI 


















1F06* 


0094 
















1F9AI 


0C6A 


0006 


0002 


91 


CMP.W 


#6,2(A2) 


; 


female directory ? 


IFAOi 


67** 








BEQ.S 


92 






1FA2I 


0C6A 


002A 


0002 




CMP.W 


#42,2(A2) 






1FA8I 


679C 








BEQ.S 


916 






IFAAl 


103C 


0009 






MOVE. B 


»INOUNIT,DO 


; 


no 


IFAEl 


6100 


FA20 






BSR 


lOEXIT 






1FB2I 


6000 


FF4E 






BRA. S 


93 






1FB6I 


















1FB6I 










compare 


the uv id ( in u 


tbl or UT17 


) with dvid (in the directory) 


1FB6I 


















IFAO* 


14 
















1F5C* 


005A 
















1F4A* 


6A 
















IFBSl 


7201 






92 


MOVE. L 


»1,D1 


; 


yes, ok: =true 


1FB8I 


0C42 


OOIF 






CMP.W 


»$1F,D2 


; 


if dev# < 1 then 


PAGE 


- 83 


MONITOR 


FILE: FILPRCl 


.TEXT 








IFBCl 


62** 








BHI.S 


914 






IFBEl 










GETUTBL 


AO 






IFBEl 


206D 


FFBA 




« 


MOVE. L 


-70(A5), AO 






1FC2I 


3602 








MOVE. W 


D2,D3 


; 


copy lunit to compute 9uvid 


1FC4I 


C7FC 


OOOC 






MULS 


»UTBLSIZ,D3 






1FC8I 


41F0 


3000 






LEA 


UVID(A0,D3), AO 


; 


get 9uvid(unit#) 


IFCCI 


60** 








BRA.S 


915 






IFBC* 


10 
















IFCEl 


3F02 






914 


MOVE. W 


D2, -(A7) 


; 


e Ise 


IFDOl 










GETUT17 


AO 






IFDOl 


206D 


FF5C 




it 


MOVE. L 


-164(A5),A0 






1F04I 


6100 


FEB6 






BSR 


UT17IDX 






1FD8I 


41F0 


2000 






LEA 


UT17VID(A0,D2), 


AO ; 


get 9uv id(dev«, un it» ) 


IFDCl 


341F 








MOVE. W 


(A7)+,D2 






IFCC* 


10 
















IFDEl 


2648 






915 


MOVE. L 


AO, A3 






IFEOl 


261B 








MOVE. L 


(A3) + ,D3 






1FE21 


43EA 


0006 






LEA 


DVID(A2 ), Al 






1FE6I 


B691 








CMP.L 


(Al ),D3 


; 


if uvidodvid then 


1FE8I 


66** 








BNE.S 


95 


■• 


go validate directory 
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TPR:M0N11.TEXT 



Page 051 



' 
















^ 


IFEAl 


26 IB 








MOVE. L 


(A3)*,D3 






IFECl 


B6A9 


0004 






CMP.L 


4(A1 ),D3 






IFFOl 


66** 








BNE.S 


05 






1FF2I 


















1FF2I 










make sure that the device is lo 


gged in 




1FF2I 


















1FF2I 


3802 








MOVE. W 


02, D4 






1FF4I 


E64C 








LSR.W 


#3,04 






1FF6I 


0244 


003C 






AND.M 


«$3C,D4 






IFFAl 










GETLOGN 


Al 






IFFAl 


226D 


FF60 




« 


MOVE. L 


-160(A5),A1 






IFFEl 


2A31 


4000 






MOVE. L 


0(A1,D4.W),D5 






20021 


0505 








BTST 


02,05 


; exit if device is logged in 




20041 


6600 


**** 






BNE 


FTCHORX 






20081 


















20081 










validate directory (AO = Suvid, 


A2 = Odirbuf, 01 = ok, 02 = lunit) 




20081 


















IFFO* 


16 
















1FE8* 


IE 
















20081 


7001 






(B5 


MOVE. L 


«1,00 


; linx:=l 




200AI 


47EA 


OOIA 






LEA 


DELENG(A2),A3 


; address of first dir entry 




200EI 


B06A 


0010 




S6 


CMP.W 


DNUMFLS(A2),00 


; while 1 inx <= dnumfiles do 




20121 


6E** 








BGT.S 


08 






20141 


162B 


0006 






MOVE. B 


DTID(A3),D3 


; if ( length(dtid) >= 0) or 




20181 


6B** 








BMI.S 


07 






201AI 


0C03 


OOOF 






CMP.B 


#15,03 


; ( length(dtid ) > tidleng) or 




201EI 


6E** 








BGT.S 


®7 






20201 


3613 








MOVE. M 


FSTBLK(A3),D3 
LSTBLK(A3),D3 






20221 


B66B 


0002 






CMP.W 


; (dlastblk < df irstblk) or 




20261 


6E** 








BGT.S 


07 






20281 


362B 


0016 






MOVE. M 


LSTBYTE(A3),D3 


; (dlastbyte <= ) or 




202CI 


6B** 








BMI.S 


07 






202EI 


0C43 


0200 






CMP.W 


#FBLKSIZ,D3 


; (dlastbyte > fblksize) or 




20321 


6E** 








BGT.S 


07 






20341 


0C6B 


C800 


0018 




CMP.W 


««C800,DACCESS(A3) 






PAGE 
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MONITOR 


FILE: FILPRCl 


.TEXT 








203AI 


64** 








BCC.S 


07 


; (daccess. year >= 100) then 




203CI 


5240 








ADD.W 


#1,00 






203EI 


D6FC 


OOIA 






ADD.W 


»DELENG, A3 






20421 


60CA 








BRA.S 


06 






203A* 


08 
















2032* 


10 
















202C* 


16 
















2026* 


IC 
















201E* 


24 
















2018* 


2A 
















20441 


4281 






®7 


MOVE. L 


#0,01 


; begin 




20461 


48E7 


EOAO 






MOVEM. L 


O0-O2/A0/A2, -(A7) 


; ok:=false; de lentry ( 1 inx, d irbuf ) 




204AI 


3F00 








MOVE. W 


00, -(A7) 
A2, -(A7) 






204C) 


2F0A 








MOVE. L 






204EI 


6100 


**** 






BSR 


DELNTRY 






20521 


4CDF 


0507 






MOVEM. L 


(A7)+,D0-D2/A0/A2 






20561 


60B6 








BRA.S 


06 


; end else 1 inx: = 1 inx-*'l 




20581 


















20581 










if dirb 


jf has beeen changed then write it back 




20581 


















2012* 


44 
















20581 


3802 






Si8 


MOVE. W 


02,04 






205AI 


E64C 








LSR.W 


#3,04 






205CI 


0244 


003C 






AND. W 


«$3C,04 






20601 










GETLOGN 


Al 






20601 


226D 


FF60 




n 


MOVE. L 


-160(A5),A1 






20641 


2A31 


4000 






MOVE. L 


0(A1,D4.W),DS 






20681 


05C5 








BSET 


02,05 


; log it in 




206AI 


2385 


4000 






MOVE. L 


05,0(A1,D4.W) 






206EI 


4A41 






310 


TST.W 


01 


; if not ok then 




20701 


66** 








BNE.S 


®9 






20721 


48E7 


60A0 






MOVEM. L 


01A)2/A0/A2, -(A7) 






20761 


3F02 








MOVE. W 


02, -(A7) 
A2, -(A7) 


; unit 




20781 


2F0A 








MOVE. L 


; dirbuf 




207AI 


6100 


Diitcitoti 






BSR 


WRTOIR 


; write directory 




207EI 


6100 


F950 






BSR 


lOEXIT 


; and record iorslt 




20821 


4CDF 


0506 






MOVEM. L 


(A7) + ,D1/D2/A0/A2 






20861 


4A40 








TST.W 


DO 


; test iorslt 




20881 


6600 


FE78 






BNE.S 


03 






2070* 


lA 
















208CI 


4246 






(39 


MOVE. W 


#IN0ERR,06 






208EI 


0C42 


OOIF 






CMP.W 


»$1F,02 


; if dev« < 1 then 




20921 


62** 








BHI.S 


013 


; begin 




20941 


316A 


OOOE 


OOOA 




MOVE. W 


OE0VBLK(A2 ), UEOVBLK(AO 


; compute eov 




2092* 


06 
















209AI 


43EA 


0006 




@13 


LEA 


0VID(A2),A1 


; end 




209EI 


2091 








MOVE. L 


(Al), (AO) 


; uv id(un it ): =dv id 




20A01 


2169 


0004 


0004 




MOVE.L 


4(A1 ), 4(A0) 






2006* 


OOAO 
















1F36* 


0170 
















20A61 


4CDF 


1B3F 




FTCHDRX 


MOVEM. L 


( A7 ) + , D0-D5/A0/A1/A3/A4 


; restore registers 




20AA1 


4E5E 








UNLK 


A6 






20ACI 


4E75 








RTS 








20AEI 








; 










20AE1 








; 


VOLSRCH 


(VAR FVID:VID; LOOKHARO: 


BOOLEAN; VAR FOIR: DIRP ): INTEGER; 
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MONITOR 


FILE: FILPRCl 


.TEXT 
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TPR:M0N11.TEXT 



Pag. 052 



20AEI 




















20AE( 








stack 












20AEI 




















20AEI 










18 func result 








20AEI 










14 ®FVIO 










20AEI 










12 LOOKHARO 








20AEI 










8 (SFDIR 










20AE( 










4 Return 


address 






20AEI 










Old A6 










20AEI 










-2 Dew ice 










20AEI 










-26 tvid 










20AE| 










-42 tvid2 










20AEI 










-44 slashfl 


ag 








20AEI 










-48 heaptop 










20AEI 




















20AEI 








registers: 










20AEI 




















20AEI 








00 -- ok 


AO -- 


®f 


t/id & Stvid 




20AEI 








01 -- physunit 


Al -- 


Sutab le 




20AEI 








02 -- 


lunit 


A2 -- 


fd 


ir 




20AEI 








03 -- device & index 


A3 -- 


Ofdir & temp 




20AEI 








04 -- 


temp 


A4 -- 


temp 




20AEI 








05 -- copy of A3 


A5 -- 


gi 


aba 1 ptr 




20AEI 








06 -- temp 


A6 -- 


local ptr 




20AEI 








07 -- 




A7 -- 


SP 






20AEI 




















20AEI 


4E56 


FFOO 1 


/OLSRCH 


LINK 


A6,#-48 










20B2I 








GETNP 


-48(A6) 










20B2I 


2060 


FFF4 FFOO » 




MOVE. L 


-12(A5), -48(A6 


) 








20B8I 


4243 






CLR.W 


03 






dev ice: =0 




20BAI 


426E 


FF04 




CLR.W 


-44(A6) 






s lashf lag: =False 




20BEI 


266E 


OOOE 




MOVE. L 


14(A6),A3 






lifvid 




20C2I 


49EE 


FFE6 




LEA 


-26(A6i, A4 






@tvld 




20C6I 


204C 






MOVE. L 


A4,A0 






save (Btvid 




20C8I 


383C 


0005 




MOVE. M 


»24/4-l,04 










20CCI 


28DB 


( 


Si 


MOVE. L 


(A3)+, (A4)+ 






copy f V id to tvid 




20CEI 


51CC 


FFFC 




DBF 


04,91 










20D2I 


4244 






CLR.W 


04 










20D4I 


1810 






MOVE. B 


(A0),D4 






get length of tvid 




20061 


6700 


*»iii* 




BEQ 


BRVOLSX 










200AI 


4246 






CLR.W 


06 










20DCI 


5246 


I 


-SLASH 


AOO.W 


#1,06 










20DEI 


0C30 


002F 6000 




CMP.B 


«'/',0(A0,O6.W) 






is nextchar a slash 




20E4I 


67** 






BEQ.S 


CSLASH 










20E6I 


B846 






CMP.W 


06,04 










20E8I 


66F2 






BNE.S 


LSLASH 










20EAI 


6000 


mikitiiti 




BRA 


DEVNUMB 










20E4* 


08 


















20EEI 


3D7C 


0001 FF04 ( 


:SLASH 


MOVE. W 


«1,-44(A6) 
«'&',1(A0 1 






s lashf lag: =true 




20F4I 


0C28 


0026 0001 




CMP.B 






if firstchar a '&' then 




20FAI 


66** 






BNE.S 


(92 






uihile true do 




20FCI 


383C 


0001 




MOVE. W 


«1,D4 






beg in 




21001 


5244 


c 


Si 


ADD. W 


«1,D4 






index: = index + 1 




21021 


BC44 






CMP.W 


04,06 






exit if nextchar is slash 




21041 


67** 






BEQ.S 


CHKDEV 










PAGE 
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MONITOR FILE: f 


-ILPRCl 


.TEXT 












21061 


0C30 


0030 4000 




CMP.B 


#'0',0(A0,O4.W) 






if nextchar in DIGITS then 




210CI 


60** 






BLT.S 


BRVOLSX 










210EI 


0C30 


0039 4000 




CMP.B 


#'9',0(A0,D4.W) 










21141 


6E** 






BGT.S 


BRVOLSX 










21161 


C7FC 


OOOA 




MULS 


#10,03 






dev ice: =device*10 




211AI 


0630 


4000 




ADD.B 


0(A0,O4.W),D3 






dev ice: =device+ordfnextchar ) 
dev ice: =dev ice-ord( '0' ) 




211EI 


0403 


0030 




SUB.B 


#'0',D3 








21221 


60DC 






BRA.S 


01 






end 




20FA* 


28 


















21241 


4243 


c 


S2 


CLR.W 


03 






device:=0*DNTRYSZ 




21261 


3806 






MOVE. W 


06,04 










21281 


5344 






SUB.W 


#1,D4 






go delete slash if length( devname ) = 





212AI 


67** 






BEQ.S 


DELOEV 










212CI 


0C44 


0007 




CMP.W 


»7,04 






exit if length(devname ) > 7 




21301 


62** 






BHI.S 


BRVOLSX 










21321 


49EE 


FFD6 




LEA 


-42(A6),A4 
(A0),(A4) 










21361 


2890 






MOVE. L 






tvid2: =tvid 




21381 


2968 


0004 0004 




MOVE. L 


4{A0), 4(A4) 










213EI 


1884 






MOVE. B 


04, (A4) 






truncate tvid2 to just devname 




21401 




c 


D3 


GETDTBL A3 










21401 


2660 


FF88 # 




MOVE. L 


-120(A5),A3 










21441 


D6C3 






ADD.W 


D3,A3 






address of nth devname 




21461 


49EE 


FF06 




LEA 


-42(A6 ), A4 
(A4),D4 






address of tv id2 




214AI 


1814 






MOVE. B 










214CI 


5204 






ADD.B 


»1,D4 




j 


number of bytes to compare 




214EI 


B90B 


c 


94 


CMPM. B 


(A3)+, (A4)+ 










21501 


66** 






BNE.S 


®5 










21521 


5304 






SUB.B 


#1,04 










21541 


66F8 






BNE.S 


(34 










21561 


EA4B 






LSR.W 


«DEVNSHF, 03 




; 


found match 




21581 


60** 






BRA.S 


DELOEV 










2150* 


08 


















215A1 


0643 


0020 C 


95 


ADD.W 


#DNTRYSZ, 03 










215EI 


0C43 


OOEO 




CMP.W 


#MAXDEV*DNTRYSZ, 


D3 








21621 


63DC 






BLS. S 


3i3 










2130* 


32 


















2114* 


4E 


















210C* 


56 
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2008* 


008C 




21641 


6000 


**** 


2104* 


62 




21681 


EB4B 




216AI 






216AI 


2660 


FF88 


216EI 


284B 




21701 


D8C3 




21721 


EA4B 




21741 


1814 




21761 


5204 




21781 


B90B 




217AI 


66** 




217CI 


5304 




217EI 


66F8 




21801 


4243 




217A* 


06 




2158* 


28 




PAGE 


- 87 


MONITOR FILE: 


212A* 


56 




21821 


4244 




21841 


1810 




21861 


9846 




21881 


67DA 




218AI 


0C44 


0007 


218Ei 


6204 




21901 


5246 




21921 


2F08 




21941 


3F06 




21961 


3F04 




21981 


2F08 




219AI 


6100 


FC88 


20EC* 


00B2 




219EI 


0C43 


0007 


21A2I 


62C0 




21A4I 


EB4B 




21A6I 


67** 




21A8I 


307C 


0001 OOOC 


21A6* 


06 




21AEI 


3043 


FFFE 


21B2I 






21B2I 


2260 


FFBA i 


21B6I 


246E 


0008 


21BAI 


26 4 A 




21BCI 


4293 




21BEI 


2A0B 




21C0I 


4280 




21C2I 


4281 




21C4| 


0C28 


0023 0001 


21CAI 


66** 




21CCI 


OCIO 


0001 


21D0I 


67** 




21D2I 


7001 




21D4I 


4242 




21061 


7602 




21D8I 






21D8I 


0C30 


0030 3000 


21 DEI 


6D** 




21E0I 


0C30 


0039 3000 


21E6I 


6E** 




21E8I 


C5FC 


OOOA 


21ECI 


0430 


3000 


21F0I 


0402 


0030 


21F4| 


60** 




21E6* 


OE 




2 IDE* 


16 




21F6I 


4280 




21F8I 


60** 




21F4* 


04 




21FAI 


5243 




21FCI 


B610 




21FEI 


6FD8 




21F8* 


06 
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- 88 
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22001 


2200 




22021 


67** 




22041 


4A42 




22061 


67EE 




22081 


0C02 


0014 


220CI 


6EE8 




220EI 


846E 


FFFE 


22121 






22121 


426E 


OOOC 


22161 


60** 




2202* 


14 




2100* 


46 




21CA* 


4C 




22181 






22181 


4A6E 


FFD4 


221CI 


66** 




221EI 


4242 




22201 


60** 





BRVOLSX 


BRA 


VOLSRCX 


CHKOEV 


LSL.W 


ffOEVNSHF, 03 




GETDTBL 


A3 




MOVE. L 


-120(A5),A3 




MOVE. L 


A3,A4 




ADO.M 


03, A4 




LSR.W 


«DEVNSHF, 03 




MOVE. B 


(A4),D4 




AOO.B 


#1,04 


(91 


CMPM. B 


(A3)+, (A4)+ 




BNE.S 


DELOEV 




SUB.B 


#1,04 




BNE.S 


01 




CLR.W 


03 



; address of zeroth devname 

; address of nth devname 

; number of bytes to compare 



DELOEV CLR. W 
MOVE. B 
SUB.M 
BEQ. S 
CMP. W 
BHI.S 
AOO.M 
MOVE. L 
MOVE. M 
MOVE. W 
MOVE. L 
BSR 

DEVNUMB CMP.W 
BHI.S 
LSL.W 
BEQ.S 
MOVE. M 



@0 



MOVE, kl 
GETUTBL 
MOVE. L 
MOVE. L 
MOVE. L 
MOVE. L 
MOVE. L 
MOVE. L 
MOVE, L 
CMP.B 
BNE.S 
CMP.B 
BEQ.S 
MOVE.L 
MOVE. W 
MOVE. L 

CMP.B 

BLT.S 

CMP.B 

BGT. S 

MULS 

AOO.B 

SUB.B 

BRA.S 



04 

(A0),D4 

06,04 

BRVOLSX 

«7,D4 

BRVOLSX 

»1,D6 

AO, -(A7) 

06, -(A7) 

04, -(A7) 

A0,"-(A7) 

TTLCOPY 

«MAXDEV, 03 
BRVOLSX 
•OEVNSHF, D3 
@0 
#1,12(A6) 

03, -2(A6) 
Al 

-70(A5), Al 
8{A6),A2 
A2,A3 
«NIL, (A3) 
A3, 05 
#0,00 
#0,01 
#35, 1(A0) 
95 

«1, (AO) 
95 

«1,D0 
#0,02 
#2,03 

«'0',0(A0,O3.W) 

@2 

»'9',0(A0,D3.W) 

92 

#10,02 

0(A0,D3.W),D2 

»'0' ,02 

93 



92 



MOVE.L #0,00 
BRA.S 94 



93 AOD.M 
CMP.B 
BLE.S 

FILPRCl.TEXT 



94 



#1,03 
(A0),03 

91 



MOVE. L 


00,01 


BEQ.S 


95 


TST.W 


02 


BEQ.S 


92 


CMP.B 


»MAXU, 02 


BGT.S 


92 


OR. W 


-2(A6),02 


MOVE. M 


#0, 12(A6) 


BRA.S 


LNFVIDO 



TST.W -44(A6) 

BNE. S 912 

CLR.W 02 

BRA. S 98 



delete device name from tvid 
exit If length(fvid )=0 
exit if length(fvid )>7 
amount to delete 



shift dev# to higher bits 
if dev# <> then 
lookhard: =true 

reflect shifted dev# in -2(A6) 
9utab le 

get ®fdir 

copy the address 

f d ir: =n i 1 

save A3 in 05 

olc: =f a Ise 

physun it: =false 

if (tvid[l]='«' ) and 

( length(tvid )<>1 ) then 

ok: =true 
lunit: =0 
index: =2 
repeat 

if tvid[index] in DIGITS then 



lun it 
lunit 
lun it 
e Ise 



=lunit*10 

=lunit+ord(tvid[ index]) 
= lunit-ord( '0' ) 



ok: =f a Ise 

exit repeat loop ( ie. not ok) 

index: = index+1 
until ( index> len( tv id ) ) or not ok 



physun it: =ok and (lunit in 1..MAXU) 



lunit: =lunit ORed dev«*32 
i f physun it then 

lookhard: =false 

goto InfvidO 



ok: =f a Ise 

if not slashflag then 

dev#: =0 
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221C* 

22221 

2220* 

22261 

222AI 

222AI 

222EI 

22301 

22321 

22361 

223AI 

222E* 

223CI 

223E| 

223EI 

22421 

22461 

224AI 

223A* 

224CI 

224E1 

22501 

22521 

22541 

22561 

22581 

225AI 

225EI 

22641 

22661 

2254* 

22681 

226AI 

226CI 

22701 

22721 

22761 

PAGE - 



22781 

227CI 

22801 

22821 

22821 

22821 

2276* 

2266* 

2216* 

22821 

22841 

22861 

228AI 

228CI 

228CI 

22921 

22961 

22981 

229AI 

229CI 

229EI 

22A0I 

22A2| 

22A6I 

22A8I 

22AA| 

22ACI 

22AE| 

22A8* 

22B0I 

22B2I 

22B4I 

22B6I 

22B8I 

22BAI 

22B4* 

2298* 

22BCI 

22BA* 

22 AE* 

228A* 

2284* 



04 

342E 

04 

0642 

0C42 

62** 

3C02 

CDFC 

49F1 

60** 

OC 

3F02 

2860 
6100 
49F4 
341F 
10 

2648 
1814 
5204 
B906 
66** 
5304 
66F8 
3D42 
026E 
7001 
60** 
12 

5342 
3F02 
025F 
66B8 
4A6E 
66** 
89 



FFFE 
0014 
OOIF 



OOOC 
6000 



FF5C 
FC48 
2000 



FFFE 
OlEO FFFE 



OOIF 
FFD4 
MONITOR 



FILE: 



®12 


MOVE. N 


-2(A6),D2 


98 


AOD.N 


«MAXU, 02 


96 








CMP.W 


«$1F,D2 




BHI.S 


910 




MOVE. M 


D2,D6 




MULS 


#UTBLSIZ,D6 




LEA 


UVID(A1,D6),A4 




BRA.S 


911 


910 


MOVE. W 


D2,-(A7) 




GETUT17 


A4 




MOVE. L 


-164(A5),A4 




BSR 


UT17IDX 




LEA 


UT17VID(A4,D2),A^ 




MOVE. N 


(A7)+,D2 


911 


MOVE, L 


A0,A3 




MOVE. B 


(A4),D4 




AOD.B 


#1,D4 


99 


CMPM. B 


(A3)+,(A4)+ 




BNE.S 


87 




SUB.B 


#1,04 




BNE.S 


99 




MOVE. W 


02, -2(A6) 
#$1E0, -2(A6) 




ANO.M 




MOVE. L 


#1,00 




BRA.S 


LNFVIDO 


97 


SUB.M 


»1,D2 




MOVE. W" 


02, -(A7) 




AND. W 


»tlF, (A7)* 




BNE.S 


96 




TST.W 


-44(A6) 




BNE. S 


LNFVIOO 


FILPRCl 


.TEXT 





2: lun it: =maxun i t 
repeat 



9uv id 



9tv id 

if tvid=utab leT[ lun it ]. uv id than 



beg in 



ok: =true; goto InfvidO 
end 

lun it: = lun it- 1 



until ok or lunit=0 
if not slashflag then 
beg in 



0642 0020 
0C42 0100 
66A4 



OA 

lA 

6A 

4A40 

67** 

6100 FBOE 

67** 

2B6E FFDO FFF4 

6100 FCOE 

4A06 

66** 

2645 

268A 

7001 

2648 

49EA 0006 

4A41 

67** 

26DC 

26DC 

60** 

06 

1814 

B90B 

66** 

5304 

6AF8 

60** 

06 

22 

4280 

02 

OE 

32 

38 



ADO.M «$20,02 
CMP.W «$20*<MAXOEV+1>,D2 
BNE. S 98 
Enter here uiith: 

1) lun it = dev«*32*unit# and -2(A6) = dev#*32 
or 2 



if ok then 



devW: =dev*+l 
if dev«<>8 then goto 2 
end 



i lun it = dev* 
ok - false 



LNFVIDO 


TST.W 


DO 




BEQ.S 


NOTOKLH 




BSR 


UNITISB 




BEQ.S 


NOTOKLH 




PUTNP 


-48 (A6) 




MOVE.L 


-48(A6), -1 




BSR 


FTCHDIR 




TST.B 


D6 




BNE.S 


92 




MOVE. L 


05, A3 




MOVE. L 


A2, (A3) 




MOVE. L 


#1,00 




MOVE. L 


A0,A3 




LEA 


OVIO(A2),A4 




TST.W 


Dl 




BEQ.S 


91 




MOVE. L 


(A4)+,(A3)* 
(A4)+, (A3)+ 




MOVE.L 




BRA.S 


NOTOKLH 


91 


MOVE. B 


(A4),D4 
'A3)*,(A4)+ 


99 


CMPM. B 




BNE.S 


92 




SUB.B 


#1,04 




BPL.S 


99 




BRA.S 


NOTOKLH 


92 


MOVE. L 


#0,00 



12(A5 



22BEI 


4A40 




NOTOKLH 


TST.W 


DO ; 


22C0I 


66** 






BNE.S 


FIXFVIO 


22C2I 


4A6E 


OOOC 




TST.W 


12(A6) 


22C6I 


67** 






BEQ.S 


FIXFVID 


22C8I 


7414 




91 


MOVE. L 


#MAXU, D2 ; 


22CAI 


D46E 


FFFE 


96 


ADD. W 


-2(A6),D2 ; 


22CEI 


6100 


FB96 




BSR 


UNITISB ; 


22D2| 


67** 






BEQ.S 


97 


22D4I 


0C42 


OOIF 




CMP.W 


»*1F,D2 ; 


22081 


63** 






BLS. S 


92 


22DAI 


4840 






SWAP 


DO 


220CI 


3002 






MOVE. W 


02, DO 


22DEI 


4840 






SWAP 


DO 


PAGE 


- 90 


MONITOR 


FILE: FILPRCl 


.TEXT 





if unit is not blocked then 
goto notoklh 



else f tchdir( lun it, f d ir ) 
if iorslt=0 then 



update ptr to directory 

ok: =true 

9tv id 

®6\i id 

if physunit then 

beg in 

tv id: =f V id 

end 
e Ise 

ok: =tvid = fdirT[0]. dvid 



ok: =true 



ok: =f a Ise 



if not ok and lookhard then 



1: lun it: =maxun it 
repeat 

if unit is blocked then 

if (dev ice=0 ) or 
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22E0I 


6100 


F3BA 


22E4I 


67** 




22E6I 






22D8* 


OC 




22E6I 


2B6E 


FFDO FFF4 


22ECI 


6100 


FBB4 


22F0I 


4A06 




22F2I 


66** 




22F4I 


2645 




22F6I 


268A 




22F8I 


2648 




22FAI 


49EA 


0006 


22FEI 


1814 




23001 


5204 




23021 


B90B 




23041 


66** 




23061 


5304 




23081 


66F8 




230AI 


3D42 


0014 


230EI 


60** 




2304* 


OA 




22F2* 


IC 




22E4* 


2A 




22D2* 


3C 




23101 


4280 




23121 


946E 


FFFE 


23161 


5342 




23181 


6680 




231AI 


4A6E 


FFD4 


231EI 


66** 




23201 


066E 


0020 FFFE 


23261 


0C6E 


0100 FF^L 


232CI 


669A 




231E* 


OE 




22C6* 


66 




22C0* 


6C 




232EI 


4A40 




23301 


67** 




23321 


3D42 


0014 


23361 


0C42 


OOIF 


233AI 


62** 




233CI 


3C02 




233EI 


CDFC 


OOOC 


23421 


49F1 


6000 


23461 


209C 




23481 


215C 


0004 


233A* 


10 




230E* 


3C 




234CI 


286E 


OOOE 


23S0I 


4214 




23521 


4A10 




23541 


6700 


**)»* 


23581 


6100 


FBOC 


235CI 


66** 




235EI 


264C 




PAGE 
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MONITOR 


23601 


4A1C 




23621 


60** 




23641 






235C* 


06 




23641 


266D 


FF88 


23681 


382E 


FFFE 


236CI 


EA4C 




236EI 


67EE 




23701 


EB4C 




23721 


47F3 


4000 


23761 


IdlB 




23781 


6700 


««14l* 


237CI 


D91C 




237EI 


18DB 




23801 


5304 




23821 


66FA 




23841 


266E 


OOOE 


23881 


5213 




238AI 


18FC 


002F 


2362* 


2A 




238EI 


1818 




23901 


D913 




23921 


18D8 




23941 


5304 




23961 


66FA 




23981 






23981 


0C13 


OOOF 


239CI 


62** 




239EI 


60** 




239C* 


02 




23A0I 


4E4F 




23A21 






23A2I 






23A2I 






237A* 


0028 




2356* 


004C 





(52 



99 



BSR 


CHECKCD 


BEQ. S 


07 


PUTNP 


-48(A6) 


MOVE. L 


-48(A6), -12(A5 


BSR 


FTCHDIR 


TST.B 


D6 


BNE.S 


®7 


MOVE. L 


DS,A3 


MOVE. L 


A2, (A3) 


MOVE. L 


A0,A3 


LEA 


DVID(A2), A4 


MOVE. B 


(A4),D4 


ADD.B 


»1,D4 


CMPM. B 


(A3)+,(A4)+ 


BNE.S 


07 


SUB.B 


«1,D4 


BNE.S 


99 


MOVE. U 


D2,20(A6) 


BRA.S 


CDEVVOL 



07 



FILE: 



MOVE. L 

SUB.W 

SUB.M 

BNE.S 

TST.W 

BNE.S 

ad6. W 

CMP.W 
BNE.S 



FIXFVID TST.W 
BEQ.S 
MOVE. W 
CMP.W 
BHI.S 
MOVE. W 
MULS 
LEA 

MOVE. L 
MOVE. L 



CDEVVOL MOVE.L 
CLR. B 
TST.B 
BEQ 
BSR 
BNE.S 
05 MOVE. L 
FILPRCl.TEXT 



#0,D0 

-2(A6),D2 

«1,D2 

06 

-44(A6) 

FIXFVID 

«$20, -2(A6) 

«$20*<MAXDEV*1>, -2(A6 ) 



DO 

VOLSRCX 
D2,20(A6) 
«*1F,D2 
CDEVVOL 
D2,D6 

«UTBLSIZ,D6 
UVID(A1,D6),A4 
■A4)+,(A0) 
A4) + ,4(A0) 



14(A6), A4 

VOLSRCX 
UNITISB 
00 
A4, A3 



(harddisk or msmory ) then 



f tchdir( lunit, fdir ) 
if iorslt=0 then 



update ptr to directory 

Otvid 

Odv id 

if tvid=dvid then 



vo Isrch: = lun it, and exit 
e Ise 



ok: =fa Ise 

lun it: = lun it-1 
until ok or lunit=0 
if not slashflag then 
begin 

devtf: =devlt*l 
if dev«<>8 then goto 1 
end 



exit if not ok 

volsrch: = lun it 
if dev« = then 
beg in 



Ouv id 

tv id: =uv id 
end 



fvid:=' • 

exit if length( tw id )=0 

if unit is blocked then 



01 



02 



TST.B (A4)+ 

BRA. S 02 
GETDTBL A3 

MOVE.L -120(A5),A3 

MOVE.W -2(A6),D4 

LSR. W WDEVNSHF, D4 

BEQ. S 05 

LSL. W #DEVNSHF, D4 

LEA DEVNAME(A3,D4. W), A3 

MOVE.B (A3)+,D4 

BEQ VOLSRCX 

ADD.B D4, (A4) + 

MOVE.B (A3)+,(A4) + 

SUB.B #1,04 

BNE. S 01 

MOVE.L 14(A6),A3 

ADD.B #1,(A3) 

MOVE.B »'/',(A4)+ 

MOVE.B (A0)+.D4 

ADD.B D4, (A3) 

MOVE.B (A0)+,(A4) + 

SUB.B »1,D4 

BNE. S 03 

CMP.B #15, (A3) 

BHI.S 04 

BRA. S VOLSRXT 



beg in 



address of device name 



concat devname to fwid 



concat slash to fvid 
end 



concat tu id to fvid 



04 



TRAP 



«$F 



error exit 
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2330* 


70 










2166* 


023C 










23A2I 


206E 


OOOE 


VOLSRCX MOVE. L 


14(A6),A0 


; fvid:=" 


23A6I 


4210 




CLR.B 


(AO) 




23A8I 


426E 


0014 


MOVE. M 


«0,20(A6) 


; volsrch: =0 


239E:* 


OC 










23ACI 


4E5E 




VOLSRXT UNLK 


A6 




23AEI 


205F 




MOVE. L 


(A7)+, AO 


; pop return address 


23B0I 


DEFC 


OOOC 


ADD.M 


#12, A7 


; delete parameters 


23B4I 


4ED0 




JMP 


(AO) 




23B6I 












23B6I 






; DIRSRCH 






23B6I 












23B6I 








18 func result 




23B6I 








14 (SFTID 




23B6I 








12 FINDPERM 




23B6I 








8 ®FDIR 




23B6i 








4 Return address 




23B6I 








Old A6 




PAGE 
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MONITOR FILE: 


-ILPRCl.TEXT 






23B6I 






i 






23B6I 


4E56 


0000 


DIRSRCH LINK 


A6,#0 




23BAI 


226E 


0008 


MOVE. L 


8(A6),A1 


; get ptr to dirbuf 


23BEI 


426E 


0014 


MOVE. M 


#0,20(A6) 


; return as default 


23C2I 


761A 




MOVE. L 


«DELENG, D3 


; initialize offset 


23C4I 


206E 


OOOE 


MOVE. L 


14(A6),A0 


; point AO at the filename 


23C8I 


3229 


0010 


MOVE. W 


DNUMFLS(A1 ), Dl 


; get number of files 


23CCI 


67** 




BEQ.S 


DIRSRCX 


; number of files = ? 


23CEI 


D2FC 


0020 


ADD.W 


«DELENG*DTID,A1 


; point Al at first entry 


23D2I 


48E7 


0018 


DIRSRLP MOVEM.L 


A3/A4, -(A7) 


; save A3 and A4 


23D6I 


2849 




■ - MOVE. L 


Al, A4 


; A4 is used for title compare 


23D8I 


2648 




MOVE. L 


A0,A3 


; A3 is title to look for 


23DAI 


4242 




CLR.W 


D2 




23DCI 


1410 




MOVE. B 


(A0),D2 
l'A3)+.(A4)+ 


; length of name in bytes 


23DEI 


B90B 




Bl CMPM. B 


; check each byte for equal 


23E0I 


66** 




BNE. S 


@2 




23E2I 


5342 




SUB.M 


#1,D2 


; compare length+1 bytes 


23E4I 


64F8 




BCC.S 


91 




23E6I 


5D49 




SUB.N 


«DTID, Al 


; found it leave Al at start of entry 


23E8I 


4CDF 


1800 


MOVEM. L 


(A7)+, A3/A4 


; restore A3 and A4 


23ECI 


60** 




BRA.S 


94 




23E0* 


OC 










23EEI 


4CDF 


1800 


82 MOVEM. L 


(A7)+,A3/A4 


; restore A3 and A4 


23F2I 


D2FC 


OOIA 


B3 ADO. M 


WDELENG, Al 


; skip to next dir entry 


23F6I 


0643 


OOIA 


ADD.W 


#DELENG, 03 


; also update offset 


23FAI 


5341 




SUB.W 


#1,D1 


; any files left ? 


23FCI 


66D4 




BNE. S 


DIRSRLP 




23FEI 


60** 




BRA.S 


DIRSRCX 


; file not found 


23EC* 


12 










24001 


302E 


OOOC 


34 MOVE. M 


12(A6),D0 


; if findperm = daccess. yearolOO then 


24041 


3429 


0018 


MOVE. W 


DACCESS(A1),D2 




24081 


0242 


FEOO 


AND. W 


»«FE00,D2 




240CI 


0C42 


C800 


CMP.W 


#$C800, D2 




24101 


56C2 




SNE 


D2 




24121 


0242 


0001 


AND. W 


«1,D2 




24161 


B440 




CMP.W 


D0,D2 




24181 


67** 




BEQ.S 


®5 




241A1 


5C49 




ADD.W 


«DTID, Al 




241CI 


60D4 




BRA.S 


®3 




2418* 


04 










241EI 


3D43 


0014 ®5 MOVE.W 


D3,20(A6) 


; dirsearch: =of fset 


23FE* 


22 










23CC* 


54 










24221 


4E5E 


DIRSRCX UNLK 


A6 




24241 


205F 




MOVE. L 


(A7)+, AO 


; pop return address 


2426) 


DEFC 


OOOC 


ADD.W 


#12, A7 


; delete parameters 


242AI 


4ED0 




JMP 


(AO) 




242CI 












242CI 












242CI 












242CI 












242CI 






.INCLUDE FILPRC2.TEXT 




242CI 












242CI 






FILENAME FILPRC2 




242CI 












PAGE 


- 93 


MONITOR FILE: F 


■ILPRC2.TEXT 






242CI 












242CI 












242CI 






FRESET(VAR F:FIB) 




242CI 












242C1 






stack: 






242CI 












242CI 








8 F 




242CI 








4 Return Address 




242CI 








Old A6 




242CI 












242CI 


4E56 


0000 F 


"RESET LINK 


A6,»0 




24301 






GETSYSC 


AO 




24301 


2060 


FFFC » 


MOVE.L 


-4(A5),A0 
»0,(A0) 




24341 


4210 




MOVE. 8 


; iors It: = inoerror 


24361 


226E 


0008 


MOVE. L 


8(A6),A1 




243AI 


4A29 


OOOA 


TST.B 


:^IS0PEN(A1 ) 


; if fisopen then 



J 
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TPR:M0N11.TEXT 
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' 














-■ 


243EI 


67** 








BEQ. S 


FRESETX 




24401 


2F09 








MOVE. L 


Al, -(A7) 




24421 


6100 


»<I|I«»C 






BSR 


RESETER 


reseter(F ) 


24461 


226E 


0008 






MOVE, L 


8(A6),A1 




244AI 


4A69 


0008 






TST.W 


FRECSZ(Al) 


if frecsz>0 then 


244EI 


6F** 








BLE. S 


FRESETX 




24501 


4A69 


0006 






TST.W 


FSTATE(Al) 




24541 


66** 








BNE.S 


®1 




24561 


2F09 








MOVE. L 


A1,-(A7) 




24581 


6100 


**** 






BSR 


FGET 




245CI 


60** 








BRA.S 


FRESETX 




2454* 


08 














245EI 


337C 


0001 


0006 


m 


MOVE. H 


»1,FSTATE(A1) 




245C* 


06 














244E* 


14 














243E* 


24 














24641 


4E5E 




FRESETX 


UNLK 


A6 




24661 


205F 








MOVE. L 


(A7)+,A0 




24681 


584F 








ADD. W 


«4.A7 




246AI 


4ED0 








JMP 


(AO) 




246CI 
















246CI 










RESETER 


(VAR F:FIB) 




246CI 
















246CI 










stack: 






246CI 
















246CI 












8 F 




246CI 












4 Return Address 




246CI 












Old A6 




246CI 
















2444* 


0028 














246CI 


4E56 


0000 


\ 


^ESETER 


LINK 


A6,#0 




24701 


226E 


0008 






MOVE. L 


8(A6),A1 




24741 


4269 


OOIA 






MOVE. W 


«0,FREPCNT(A1) 
«0,FE0F(A1) 


f repent: =0 


24781 


4229 


0005 






MOVE. B 


feof:=false 


247CI 


4229 


0004 






MOVE. B 


#0,FE0LN(A1) 


feoln: =false 


24801 


4A29 


OOOB 






TST.B 


FISBLKD(A1 ) 


if fisblkd then 


24841 


6700 


DtXcWXc 






BEQ 


RESETRX 




24881 


3029 


0016 






MOVE. W 


FMAXBLK(A1),D0 
FNXTBLK(A1 ), DO 




248CI 


B069 


0018 






CMP. W 
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- 94 


MONITOR FILE: I 


-ILPRC2 


.TEXT 






24901 


5DC0 








SLT 


DO 


b igger: =f nxtb lk>finaxb Ik 


24921 


6C** 








BGE.S 


Sil 


if bigger then 


24941 


3369 


0018 


0016 




MOVE. M 


FNXTBLK(A1 ),FMAXBLK(A1 ) 


fmaxblk: =f nxtb Ik 


2492* 


06 














249AI 


4A69 


0038 




Bl 


TST.W 


FSOFTBF(Al) 


if softbf then 


249EI 


6700 


**** 






BEQ 


07 




24A2I 


4A40 








TST.W 


DO 


if bigger then fmaxbyte: =f nxtbyte 


24A4I 


66** 








BNE.S 


92 




24A6I 


3229 


0016 






MOVE. W 


FMAXBLK(A1 ), Dl 
FNXTBLK(A1),D1 


if fnxtblk=fmaxblk then 


24AAI 


B269 


0018 






CMP. W 




24AEI 


66** 








BNE.S 


®3 




24B0I 


3429 


003C 






MOVE. W 


FNXTBYT(A1),D2 
FMAXBYT(A1),D2 


if fnxtbyte>fmaxbyte then 


24B4I 


B469 


003A 






CMP.W 




24B8I 


6F** 








BLE. S 


93 




24BAi 


7001 








MOVE. L 


«1,D0 


bigger: =true 


24A4* 


16 














24BCI 


3369 


003C 


003A ( 


S2 


MOVE. W 


FNXTBYT(A1 ), FMAXBYT(A1 ) 


fmaxbyte: =f nxtbyte 


24B8* 


08 














24AE* 


12 














24C2I 


4A69 


003E 


c 


S3 


TST.W 


FBFCHNG(Al) 


if fbufchngd than 


24C6I 


67** 








BEQ. S 


96 




24C8I 


4269 


003E 






MOVE. W 


»0,FBFCHNG(A1 ) 
«1,FM0DIFD(A1 ) 


fbufchngd: =false 


24CCI 


337C 


0001 


OOIC 




MOVE. W 


fmod if ied: =true 


24D2I 


4A40 








TST.W 


DO 


if bigger then 


24D4I 


67** 








BEQ.S 


®5 




24D6I 


41E9 


0050 






LEA 


FBUFFER(Al), AO 
FNXTBYT(A1 ), AO 


f i llchar(fbuffer[f nxtbyte], 


240A| 


D0E9 


003C 






ADD. W 


fblksize-fnxtbyte.O ) 


24DEI 


363C 


0200 






MOVE. W 


#FBLKSIZ,D3 




24E2I 


9669 


003C 






SUB. W 


FNXTBYT(A1 ), D3 




24E6I 


67** 








BEQ.S 


95 




24E8I 


4218 




c 


94 


MOVE. B 


»0, (AO)* 




24EAI 


5343 








SUB. W 


«1,D3 




24ECI 


66FA 








BNE.S 


94 




24E6* 


06 














24D4* 


18 














24EEI 


3F00 




( 


S5 


MOVE. W 


D0,-(A7) 




24F0I 


3029 


OOOC 






MOVE. W 


FUNIT(A1 ),D0 


unituirite(funit, fbuffer, fblksize. 


24F4I 


41E9 


0050 






LEA 


FBUFFER(A1 ), AO 


fheader.dfrstblk+fnxtblk-1 


24F8I 


2208 








MOVE. L 


AO.Dl 




24FAI 


343C 


0200 






MOVE. W 


#FBLKSIZ,D2 




24FEI 


41E9 


OOIE 






LEA 


FHEADER(A1 ), AO 




25021 


3610 








MOVE. W 


FSTBLK(A0),D3 




25041 


D669 


0018 






ADD.W 


FNXTBLK(A1 ), D3 




25081 


5343 








SUB.W 


»1,D3 




250AI 


6100 


itoKWik 






BSR 


WRITEIT 




250EI 


30 IF 








MOVE. W 


(A7)*,D0 


if bigger and 


25101 


67** 








BEQ.S 


96 




25121 


226E 


0008 






MOVE. L 


8(A6), Al 




25161 


41E9 


OOIE 






LEA 


FHEADER(A1 ), AO 


( f header. dfk ind=textf i le ) and 


251AI 


0C68 


0003 


0004 




CMP.W 


«TEXTFILE,FKIND(AO) 




25201 


66** 








BNE.S 


96 




25221 


3029 


0018 






MOVE. W 


FNXTBLK(A1 ), DO 




25261 


E258 








ROR.W 


«1,D0 


add( fnxtb Ik ) then 


25281 


64** 








BCC.S 


96 
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TPR:M0N11.TEXT 
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252AI 


5269 


0016 






ADD.W 


#1,FMAXBLK(A1) ; 


fmaxblk: =fmaxblk + l 




PAGE 
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MONITOR FILE: 


FILPRC2 


.TEXT 








252EI 


41E9 


0050 






LEA 


FBUFFER(A1 ), AO ; 


fillchar(f buffer, fblksize.O) 




25321 


363C 


0200 






MOVE. W 


«FBLKSIZ,D3 






25361 


5269 


0018 






ADD.W 


»1,FNXTBLK(A1) 






253AI 


4240 








MOVE. W 


«0,D0 






253CI 


60AA 








BRA. S 


(34 ; 


go do unltwrite 




2528* 


14 
















2520* 


IC 
















2510* 


2C 
















24C6* 


76 
















253EI 


226E 


0008 




S6 


MOVE. L 


8(A6), Al 






25421 


337C 


0200 


003C 




MOVE. W 


»FBLKSIZ,FNXTBYT(A1) ; 


fnxtbyte: =fblkslze 




24A0* 


00A8 
















25481 


4269 


0018 




117 


MOVE. M 


«0,FNXTBLK(A1) ; 
FSOFTBF(Al) ; 


fnxtblk: =0 




254CI 


4A69 


0038 






TST.W 


if fsoftbf and 




25501 


67** 








BEQ.S 


RESETRX 






25521 


41E9 


OOIE 






LEA 


FHEADER(A1 ), AO ; 


(fheader. dfk ind=textf i le ) th 


en 


25561 


0C68 


0003 


0004 




CMP.W 


#TEXTFILE,FKIND(AO) 






255CI 


66** 








BNE.S 


RESETRX 






255EI 


337C 


0002 


0018 




MOVE. M 


»2,FNXTBLK(A1 ) ; 


fnxtblk:=2 




255C* 


06 
















2550* 


12 
















2486* 


CODE 
















25641 


4E5E 






=^ESETRX 


UNLK 


A6 






25661 


205F 








MOVE. L 


(A7)+,A0 






25681 


584F 








ADD.M 


»4,A7 






256AI 


4ED0 








JMP 


(AO) 






256CI 


















256CI 










INSNTRY 


(VAR FENTRY:DIRENTRY; FINX 


:DIRRANGE; FDIR:DIRP) 




256CI 


















256CI 










stack: 








256CI 


















256CI 












14 ®FENTRY 






256CI 












12 FINX 






256CI 












8 FDIR 






256CI 












4 Return Address 






256CI 












Old A6 






256CI 


















256CI 


4E56 


0000 




:nsntry 


LINK 


A6,»0 






25701 


206E 


0008 






MOVE. L 


8(A6), AO 






25741 


3028 


0010 






MOVE. M 


DNUMFLS(AO), DO 






25781 


5240 








ADD.W 


«1,D0 






257AI 


61** 








BSR.S 


SETA1A2 






257CI 


B06E 


OOOC 






CMP.W 


12(A6),D0 ; 


if dnumf i les+l>f inx then 




25801 


6F** 








BLE.S 


(94 






25821 


740D 






Hi 


MOVE. L 


#DELENG/2,D2 ; 


for i:=dnumfiles douinto finx 


do 


25841 


3521 






B2 


MOVE. W 


-(A1),-(A2) ; 


fdirT[i + l]:=fdirt[i] 




25861 


5342 








SUB.W 


#1,D2 






25881 


66FA 








BNE.S 


92 






258AI 


5340 








SUB.W 


»1,D0 






258CI 


B06E 


OOOC 






CMP.W 


12(A6),D0 






25901 


66F0 








BNE.S 


®1 






2580* 


10 
















25921 


246E 


OOOE 




1)4 


MOVE. L 


14(A6), A2 






25961 


740D 








MOVE. L 


«DELENG/2,D2 






25981 


32DA 






33 


MOVE. W 


(A2)*,(A1)* ; 


fdirT[finx]: =fentry 
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MONITOR FILE: 


-ILPRC2 


.TEXT 








259AI 


5342 








SUB.W 


»1,D2 






259CI 


66FA 








BNE.S 


(S3 






259EI 


0668 


0001 


0010 




ADDI.W 


«1,DNUMFLS(A0) ; 


dnumfiles:=dnumfiles+l 




25A4I 


4E5E 






<ITNTRY 


UNLK 


A6 






25A6I 


205F 








MOVE. L 


(A7)+, AO 






25A8I 


DEFC 


OOOA 






ADD.W 


#10, A7 






25ACI 


4ED0 








JMP 


(AO) 






25AEI 


















25AEI 










SETA1A2 


-- common to INSNTRY and DELNTRY 




25AEI 


















257A* 


32 
















25AEI 


3200 






5ETA1A2 


MOVE. W 


DO.Dl 






25B0I 


C3FC 


OOIA 






MULS 


#DELENG, Dl 






25B4I 


2248 








MOVE.L 


AO, Al 






25B6I 


D2C1 








ADD.W 


Dl, Al 






25B8I 


2449 








MOVE. L 


A1,A2 






25BAI 


D4FC 


OOIA 






ADD. W 


#DELENG, A2 






25BEI 


4E75 








RTS 








25C0I 


















25C0I 










DELNTRY 


(FINX:DIRRANGE; FDIR:DIRP) 






25C0I 


















25C0I 










stack: 








25C0I 


















25C0I 












12 FINX 






25C0I 












8 FDIR 






25C0I 












4 Return Address 






25C0I 












Old A6 






25C0I 


















25C0I 


4E56 


0000 


1 


3ELNTRY 


LINK 


A6,«0 






25C4I 


206E 


0008 






MOVE.L 


8(A6 ),A0 






25C8I 


3628 


0010 






MOVE. W 


DNUMFLS(AO ),D3 






25CCI 


302E 


OOOC 






MOVE.W 


12(A6),D0 






25D0i 


61DC 








BSR.S 


SETA1A2 






25D2I 


6640 








CMP.W 


DO, 03 ; 


if finx < dnumfiles then 
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Page 059 



25D4( 


6F** 




BLE.S 


®3 






25D6( 


740D Sil 


MOVE. L 


#DELENG/2,02 




; for i:=finx to dnumfilas-l do 


25081 


32DA 92 


MOVE. M 


(A2)*.{A1)* 




; fdirt[i]:=fdirT[i + l] 


25DAI 


5342 




SUB.W 


«1,D2 






25DCI 


66FA 




BNE.S 


®2 






25DEI 


5240 




AOD.W 


#1,00 






25E0I 


BO 43 




CMP.W 


D3,00 






25E2I 


66F2 




BNE.S 


(91 






25D4* 


OE 












25E4I 


4229 0006 1B3 


MOVE. B 


«0,DTIO(A1) 
«1,DNUMFLS(A0) 




; fdirt[dnumf iles]. dt id: =' • 


25E8I 


0468 0001 0010 




SUBI.M 




; dnumf i les: =dnumf i les-1 


25EEI 


4E5E 




UNLK 


A6 






25F0I 


205F 




MOVE. L 


(A7)+,A0 






25F2I 


5C4F 




ADD. W 


#6, A7 






25F4I 


4ED0 




JMP 


(AO) 






25F6I 














25F6I 






ENTRTMP 


(VAR F:FIB) 






25F6I 














25F6I 






stack: 








25F6I 














25F6I 








20 func result 




PAGE - 


97 MONITOR FILE: FILPRC2 


.TEXT 








2SF6I 








16 SFTID 






25F6I 








14 FSEGS 






25F6I 








12 FKIND 






25F6I 








8 FDIR 






25F6I 








4 Return 


Address | 


25F6I 








Old A6 






25F6I 














25F$I 






reg isters: 






25F6I 














2SFS« 






DO -- temp, CURINX 


AO -■• 


temp 


25F6J 






01 -- temp, FRSTOPEN 


Al -- 


SLOE 


25F6t 






02 -- temp, NEXTUSED 


A2 -- 


SRTll 


25F6< 






03 -- temp, FREEAREA 


A3 -- 


FDIR 


25F6) 






D4 -- U 


:SINX,L:DINX 


A4 -- 


SFSEGS 


25F6I 






05 -- LASTI 


A5 -- 


global ptr 


25F6I 






06 -- SSEGS 


A6 -- 


local ptr 


25F6I 






07 — 




A7 -- 


SP 


25F6I 














25F6I 






F INDMAX 


(CURINX; FRSTOPEN 


; NEXTUSED ) | 


2SF6I 
25F6I 
25F6I 






VAR FREEAREA 






3602 


"INDMAX 


MOVE. N 


02, 03 




; f reearea: =nextused-frstopen 


25FSI 


9641 




SUB.M 


01,03 






25FAI 


B654 




CMP.W 


(A4), 03 




; if freearea>fsegs then 


25Pq 


6F** 




BLE.S 


92 






25FQ 


4844 




SWAP 


04 




; sinx:=dlnx 


26001 


3C14 




MOVE. W 


(A4),06 




; ssegs: =fsegs 


26021 


3800 




MOVE. W 


00,04 




; dinx:=curinx 


26041 


3883 




MOVE. W 


03, (A4) 




; f sags: =freearea 


26061 


4E75 


il 


RTS 








25FC* 


OA 












26<^ 


BC54 


B2 


CMP.W 


(A4),D6 




; if freearea>ssegs then 


260«l 


6FFA 




BLE.S 


SI 






2600 


3C03 




MOVE. W 


03,06 




; ssegs: =f reearea 


260£| 


4844 




SWAP 


04 






26 1« 


3800 




MOVE. W 


00,04 




; s inx: =cur inx 


2614 


4844 




SWAP 


04 






261^ 


4E75 




RTS 








26141 














261«l 


0000 OOIC 


RTll 


EQU 


DELENG+2 






261«l 














26161 


4E56 FFE4 


ENTRTMP 


LINK 


A6,»-RT11 






261«l 


6100 E266 




BSR 


OVFCHK 






26 IQ 


244F 




MOVE. L 


A7,A2 




; ®RT11 


26291 


49EE OOOE 




LEA 


14(A6 ),A4 




; SFSEGS 


2624) 


4284 




MOVE. L 


«0,D4 




; sinx:=0, dinx:=0 


262fil 


266E 0008 




MOVE. L 


8(A6), A3 




; FDIR 


262« 


3A2B 0010 




MOVE.W 


DNUMFLS(A3 ), 05 




; last i: =fdirt[0]. dnumf i les 


2625 


20 4B 




MOVE. L 


A3, AO 






26»t 


4246 




MOVE. W 


#0,06 




; ssegs: =0 


263% 


4252 




MOVE.W 


#0, (A2) 
(A4) 




; rtll:=false 


263<« 


4A54 




TST. W 




; if fsegs<=0 then 


263% 


67** 




BEQ.S 


®1 






26M 


6A** 




BPL.S 


®5 




if fsegs<0 then rtll: =true 


263* 


34BC 0001 




MOVE. W 


«1, (A2) 






26»* 


06 
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26m 


4240 


91 


MOVE. W 


#0,00 




; for i: =1 to lasti do 


26« 


60** 




BRA.S 


(SO 






264£ 


5240 


§)2 


ADD.W 


#1,00 






264% 


3228 0002 




MOVE. W 


LSTBLK(AO), 01 




i f indmax( i, fdirTf i-1 ]. dlastblk, 
; fdirT[ ij.df irstblk ) 


26m 


DOFC 001 A 




ADD.W 


»DELENG, AO 




2sm 


3410 




MOVE. W 


FSTBLK(A0),D2 






264B 


61A6 




BSR 


FINDMAX 






26W0E 












2651 


B045 


®0 


CMP.W 


05,00 






26Sk 


66EE 




BNE.S 


(32 






265» 


5240 




ADD.W 


#1,00 






2656 


3228 0002 




MOVE. W 


LSTBLK(AO),01 




; f indmax( last i + 1. 


265» 


342B OOOE 




MOVE. W 


DE0VBLK(A3 ), D2 




; fdirT[ lasti]. dlastblk. 
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265E 


6196 








BSR 


FINDMAX 




fdirT[0]. deovblk ) 


2660 


4A52 








TST.W 


(A2) 




if rtll then 


2662 


67** 








BEQ.S 


94 






2664 


3014 








MOVE. M 


(A4),00 






2666 


E248 








LSR.W 


»1,D0 






2668 


BO 46 








CMP.W 


06,00 




if fsegs div 2 <= ssegs then 


266A 


6E** 








BGT.S 


®3 






266C 


3886 








MOVE. W 


06, (A4) 




f segs: =ssegs 


266E 


4844 








SWAP 


04 




dinx: =s inx 


26701 


60** 








BRA.S 


94 






266A 


* 06 
















2672 


5254 






®3 


ADD.W 


»1,(A4) 
(A4) 




else 


2674 


E2D4 








LSR.W 




fsegs: =(fsegs*l ) div 2 


2670 


* 04 
















2662 


* 12 
















26761 


60** 






94 


BRA.S 


99 




else (fsegs>0} 


2638 


* 3E 
















26781 


20 4B 






95 


MOVE. L 


A3,A0 






267AI 


303C 


0001 






MOVE. W 


#1,00 




i:=l 


267EI 


B045 






96 


CMP.W 


05,00 




uhile i <= lasti do 


26801 


6E** 








BGT.S 


@8 




beg in 


26821 


3228 


0002 






MOVE. W 


LSTBLK(A0),D1 




if fdirt[i].df irstblk - 


26861 


DOFC 


OOIA 






ADD.W 


»OELENG, AO 




fdirT[i-l].dlastblk >= fsegs then 


268AI 


3410 








MOVE. W 


FSTBLK(A0),D2 






268CI 


9441 








SUB.W 


01,02 






268EI 


B454 








CMP.W 


(A4), 02 






26901 


6D** 








BLT. S 


97 






26921 


3800 








MOVE. W 


00,04 




dinx: = i 


26941 


3005 








MOVE. W 


05,00 




i: =lasti 


2690 


* 04 
















26961 


5240 






97 


ADD.W 


«1,D0 




i:=i + l 


26981 


60E4 








BRA.S 


96 




end {while loop} 


2680 


* 18 
















269AI 


4A44 






98 


TST.W 


04 




if dinx=0 then 


269CI 


66** 








BNE. S 


99 






269E 


342B 


OOOE 






MOVE. W 


DE0VBLK(A3), 02 




if fdirt[0].dBovblk - 


26A2 


3205 








MOVE. W 


05,01 




fdirt[i-l].dlastblk >= fsegs then 


26A4 


C3FC 


OOIA 






MULS 


«DELENG, 01 






26A8 


9473 


1802 






SUB.W 


LSTBLK(A3,01.L) 


D2 




26AC 


B454 








CMP.W 


(A4),D2 






26AE 


6D** 








BLT.S 


99 






PAGE 


- 99 


MONITOR FILE: 


FILPRC2 


.TEXT 








26B0 


3800 








MOVE. W 


00,04 




dinx: =last i+1 


26AE 


* 02 
















269C 


* 14 
















2676 


* 3A 
















26B2 


0(:45 


0040 




99 


CMP.W 


»MAXDIR,D5 




if lasti = maxdir then 


26B6I 


6D** 








BLT.S 


910 






26B8I 


0C6B 


0006 


0002 




CMP.W 


#6,LSTBLK(A3) 






26BE 


67** 








BEQ.S 


912 






26C0 


0C45 


0312 






CMP.W 


«MAXDIRB,05 






26C4I 


60** 








BLT.S 


910 






26BE 


* 06 
















26C6I 


4244 






912 


MOVE. W 


#0,04 


• 


dinx: =0 


26C4 


* 02 
















26B6 


* 10 
















26C8I 


3004 






910 


MOVE. W 


04,00 






26CA 


67** 








BEQ.S 


911 


; 


if dinxoO then 


26CC 


43EE 


FFE6 






LEA 


-DELENG(A6), Al 






26D0 


5340 








SUB.W 


#1,00 


; 


df irstblk: =fdirT[ dinx- 1]. dlastblk 


26D2 


CIFC 


OOIA 






MULS 


#DELENG, DO 






26D6 


32B3 


0802 






MOVE. W 


LSTBLK(A3,00.L) 


FSTBLKfAl ) 


26DAI 


3351 


0002 






MOVE. W 


FSTBLK(A1 ),LSTBLK(A1 ) " ; 


dlastblk: =df irstblk + fsegs 


26DEI 


3614 








MOVE. W 


(A4),03 






26E0 


0769 


0002 






ADD.W 


D3,LSTBLK(A1) 
12(A6 ), FKIND(A1 
16(A6), AO 






26E4 


336E 


OOOC 


0004 




MOVE. W 


) ! 


dfkind:=fkind 


26EA 


206E 


0010 






MOVE. L 






26EE 


2F08 








MOVE. L 


AO, -(A7) 
»1, -(A7) 


; 


push source address 


26F0I 


3F3C 


0001 






MOVE. W 


; 


push starting index 


26F4 


1010 








MOVE. B 


(AO),DO 






26F6I 


4880 








EXT.W 


DO 






26F8 


3F00 








MOVE. W 


D0,-(A7) 
0TI0(A1 ) 




push length 


26FA 


4869 


0006 






PEA 




push dst address 


26FE 


6100 


F724 






BSR 


TTLCOPY 




dt id: =ftid 


2702 


337C 


0200 


0016 




MOVE. W 


»FBLKSIZ,LSTBYTE(A1 ) 




2708 


337C 


C800 


0018 




MOVE. W 


»$C800,OACCESS(A1 ) ; 


month: =0, day: =0, year: =100 


270E 


3F04 








MOVE. W 


D4, -(A7) 






2710 


2F09 








MOVE.L 


A1,-(A7) 






2712 


3F04 








MOVE. W 


04, -(A7) 






2714 


2F2E 


0008 






MOVE. L 


8(A6), -(A7) 






2718 


6100 


FE52 






BSR 


INSNTRY 


; 


insntry( Ide, dinx, fdir ) 


271C 


381F 








MOVE.W 


(A7)+,D4 






26CA 


* 52 
















271E 


3D44 


0016 


©11 


MOVE. W 


D4,22(A6) 


; 


entrtmp: =d inx 


2722 


4E5E 








UNLK 


A6 






2724 


205F 








MOVE. L 


(A7)+, AO 






2726 


DEFC 


OOOE 






ADD.W 


«14, A7 






272A 


4EO0 








JMP 


(AO) 






272C 


















272C 










WRITEIT 


-- common paint 


for unituirites (for debugging) 


272C 


















272C 










registers on entry: 






272C 


















272C 












DO unit* 
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272CI 






272CI 






272CI 






PAGE 
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MONITOR 


272CI 






250C* 


0220 




272CI 


7C02 




272EI 


3F00 




27301 


6100 


F22A 


27341 


4E90 




27361 


6000 


F298 


273AI 






273AI 






273AI 






273AI 






273AI 






273AI 






273AI 






273AI 






273AI 






273AI 


221F 




273CI 


205F 




273EI 


3428 


0010 


27421 


5242 




27441 


C5FC 


OOIA 


27481 


0642 


OlFF 


274CI 


0242 


FEOO 


27501 


C388 




27521 


301F 




27541 


2F08 




27561 


7602 




27581 


60D2 




275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 






275AI 


4E56 


FFC4 


275EI 


6100 


E122 


27621 






27621 


2D6D 


FFF4 RFC4 


27681 






27681 






27681 






27681 


426E 


FFE4 


PAGE 


- 101 


MONI TflR 


276CI 






276CI 


206D 


FFFC 


27701 


4210 




27721 


226E 


0012 


27761 


4A29 


OOOA 


277AI 


67** 




277CI 


lOBC 


OOOC 


27801 


6000 


**** 


27841 






27841 






27841 






277A* 


08 




27841 


42A7 




27861 


2F2E 


OOOE 


278AI 


486E 


FFC8 


278EI 


486E 


FFE8 


27921 


486E 


FFE6 


27961 


486E 


FFE4 


279AI 


6100 


F3C2 


279EI 


4A5F 




27A0I 


66** 




27A2I 






27A2I 


206D 


FFFC 


27A6I 


lOBC 


0007 


27AAI 


6000 


**** 


27AE1 






27AEI 






27AEI 






27A0* 


OC 




27AEI 


42A7 




27B0I 


486E 


FFC8 


27B4( 


3F3C 


0001 



TPR: MONI 1. TEXT 



Paga 061 



Dl 


address 


02 


length 


03 


block 



FILE: FILPRC2.TEXT 



WRITEIT MOVE.L #0UT8IT,D6 

MOVE.W D0,-(A7) 

BSR GETUNIT 

JSR (AO) 

BRA lOEXIT 



push unit'' 

note ioexit ui i 1 1 do rts 



; WRTDIR 


-- write directory 


; stack: 






8 UNIT* 




4 LOIR 




RETURN ADORESS 


^RTOIR MOVE.L 


(A7)+,01 
(A7)*,A0 


MOVE. L 


MOVE. U 


DNUMFLS(AO), 02 


AOO.W 


#1,02 


MULS 


«DELENG, 02 


AOD.M 


#511,02 


AND.M 


«$FEOO, 02 


EXG 


01, AO 


MOVE. M 


(A7)*,00 


MOVE. L 


AO, -(A7) 


MOVE. L 


»DIRDISK,D3 


BRA 


WRITEIT 



; address of directory 



length 

dl=address of dir, AO=raturn address 

unit# 

block 



FOPEN(F:FIB; TITLE: TID; OPENOLD: BOOLEAN; JUNK:FIBP) 
stack 



FOPEN 





18 




F 




14 




TITLE 




12 




OPENOLD 




8 




JUNK 




4 




RETURN AOORESS 









Old A6 




-8 




FREES 8 




-24 




LTID 16 




-26 




LSEGS word 




-28 




LKINO word 




-32 




LOIR ptr 




-56 




LVID 24 




-60 




Heaptop 


LINK 


A6,« 


-60 




BSR 


OVFCHK 




GETNP 


-60( 


A6) 





inark( heaptop ) 



MOVE.L -12(A5), -60(A6) 

initialize and test if file is already open 

MOVE.W #0, -28(A6) ; zero LKINO 

FILE: FILPRC2.TEXT 



GETSYSC 


AO 


* MOVE. L 


-4(A5), AO 


MOVE. B 


#INOERR, (AO) 


MOVE. L 


18(A6), Al 


TST.B 


FISOPEN(Al) 


BEG. S 


®1 


MOVE, B 


«INOTCLS, (AO 


BRA 


FOPENX 


; validate the 


title 


dl MOVE. L 


«0, -(A7) 


MOVE. L 


14(A6), -(A7) 


PEA 


-56 (A6) 


PEA 


-24(A6) 


PEA 


-26(A6) 


PEA 


-28(A6) 


BSR 


SCANTTL 


TST.W 


(A7)* 


BNE. S 


02 


GETSYSC 


AO 


MOVE. L 


-4(A5),A0 


MOVE. B 


«IBADTTL, (AO 


BRA 


FOPENX 


; scan title passed 


!S2 MOVE. L 


»0, -(A7) 


PEA 


-56(A6 ) 


MOVE.W 


«1, -(A7 ) 



initial ize ions It 
if F. fisopen then 
iorslt: =inotclosed 



func result 
push Otitle 
push Slvid 
push Oltid 
push @lsegs 
push S Ik ind 

if not scantitle then 



iors It: = ibadt it le 



func resu It 
push (Slvid 
push true 
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' 












1 


27B8I 


486E 


FFEO 




PEA 


-32(A6) 


push ®ldir 


27BCI 


6100 


F8F0 




BSR 


VOLSRCH 


lunit: =wolsearch 


27C0I 


301F 






MOVE. M 


(A7)*,D0 


get lunit 


27C2I 


66** 






BNE.S 


®3 


if lunit=0 then 


27C4I 








GETSYSC 


AO 




27C4I 


206D 


FFFC 


u 


MOVE. L 


-4(AS), AO 




27C81 


lOBC 


0009 




MOVE. B 


«INOUNIT, (AO ) 


iors It: = inoun it 


27CCI 


6000 


**** 




BRA 


FOPENX 




27D0I 














27D0I 






; now o 


aen the 


file 




27D0I 














27C2* 


OC 












27D0I 


226E 


0012 


®3 


MOVE. L 


18(A6),A1 




27D4I 


137C 


0001 OOOA 




MOVE. B 


»1,FIS0PEN(A1 ) 
»0,FM0DIFD(A1) 


f isopen: =true 


27DAI 


4269 


OOIC 




MOVE. W 


fmodif ied: =false 


27DEI 


3340 


OOOC 




MOVE. W 


D0,FUNIT(A1 ) 


funit: =lunit 


27E2I 


41E9 


OOOE 




LEA 


FMACHIN(A1 ), AO 


zero machine name for now 


27E6I 


4298 






CLR. L 


m: 




27E8I 


4298 






CLR. L 




27EAI 






; currently Ivi 


d is restricted to 16 bytes by volsrch ( ie. no machine name) 


27EAI 


41EE 


FFC8 




LEA 


-56(A6),A0 


Slvid 


27EEI 


43E9 


0040 




LEA 


FDEVVID(A1 ),A1 


®f dew id 


27F2I 


22D8 






MOVE. L 


(A0) + ,(A1)+ 


FDEVVID:=LVID 


PAGE 
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MONITOR 


FILE: FILPRC2 


.TEXT 






27F4I 


22D8 






MOVE. L 


(A0)+, (Al)+ 




27F6I 


22D8 






MOVE. L 


I A0)+, (Al)* 




27F8I 


22D8 






MOVE. L 


1 A0)+, (Al )+ 




27FAI 


226E 


0012 




MOVE.L 


18(A6), Al 




27FEI 


4269 


0018 




MOVE. W 


«0,FNXTBLK(A1) 


fnxtblk:=0; 


28021 


3400 






MOVE. W 


D0,D2 




28041 


6100 


F660 




BSR 


UNITISB 




28081 


5SC2 






SNE 


D2 




280AI 


0202 


0001 




AND. B 


«1,D2 




280EI 


1342 


OOOB 




MOVE.B 


D2,FISBLKD(A1) 




28121 


4241 






CLR.W 


Dl 


fsoftbf is a word 


28141 


4A69 


0008 




TST. W 


FRECSZ(Al) 




28181 


56C1 






SNE 


Dl 




281AI 


C202 






AND.B 


D2,D1 




281CI 


3341 


0038 




MOVE. M 


D1,FS0FTBF(A1) 


fsof tbuf : su isb Ikd and (frecsizeoO) 


28201 


4280 






MOVE. L 


«NIL, DO 




28221 


BOAE 


FFEO 




CMP.L 


-32(A6),D0 




28261 


6700 


XlltotlHl 




BEQ 


911 




282AI 


4A2E 


FFE8 




TST.B 


-24(A6) 


if Id iron il and len(ltid)<>0 then 


282EI 


6700 


mm** 




BEQ 


811 




28321 














28321 






; searc 


T the directory 




28321 














28321 


42A7 






MOVE. L 


«0, -(A7) 


func result 


28341 


486E 


FFE8 




PEA 


-24(A6) 


push Sltid 


28381 


3F2E 


OOOC 




MOVE. W 


12(A6), -(A7) 


push fopenold 


283CI 


2F2E 


FFEO 




MOVE. L 


-32(A6),-(A7) 


push @ldir 


28401 


6100 


FB74 




BSR 


DIRSRCH 


1 inx: =d irsearch 


28441 


4A6E 


OOOC 




TST.W 


12(A6) 


if fopenold then 


28481 


67** 






BEQ. S 


(116 




284AI 


30 IF 






MOVE.W 


(A7)+,D0 


if linx=0 then 


284CI 


66** 






BNE.S 


@4 




284EI 








GETSYSC 


AO 




284EI 


206D 


FFFC 


» 


MOVE. L 


-4(A5),A0 




28521 


lOBC 


OOOA 




MOVE. B 


»INOFILE, (AO) 


iors It: = inof i le 


28561 


6000 


**** 




BRA 


FOPENl 




285AI 














285A1 






; enter 


with I inx * deleng in DO ! 




285A1 














284C* 


OC 












285AI 


7200 




®4 


MOVE. L 


»DELENG/2,D1 


else 


285CI 


206E 


FFEO 




MOVE.L 


-32(A6), AO 




28601 


DOCO 






ADD.W 


DO.AO 


compute Oldir+linx 


28621 


226E 


0012 




MOVE. L 


18(A6), Al 


with F 


28661 


45E9 


OOIE 




LEA 


FHEADER(A1 ), A2 


with FHEADER 


286AI 


254A 






MOVE. L 


A2,A3 




286CI 


36D8 




@S 


MOVE. N 


(A0)+,(A3) + 


copy directory to fheader 


286EI 


5341 






SUB.M 


«1,D1 




28701 


66FA 






BNE.S 


®5 




28721 


4A6E 


OOOC 




TST.W 


12(A6) 


if fopenold then goto F0PEN2 


28761 


6600 


**** 




BNE 


F0PEN2 




287AI 


337C 


0001 OOIC 




MOVE.W 


»1,FM0DIFD(A1 ) 


fmod if ied: =true 


28801 


3F29 


OOOC 




MOVE.W 


FUNIT(A1 ), -(A7) 


push funit (same as lunit) 


28841 


2F2E 


FFEO 




MOVE.L 


-32(A6),-(A7) 


push Idir 


28881 


6100 


FEBO 




BSR 


WRTDIR 


writedir(lunit, Idir) 


PAGE 
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MONITOR 


FILE: FILPRC2 


.TEXT 






288CI 


226E 


0012 




MOVE. L 


18(A6), Al 




28901 


45E9 


OOIE 




LEA 


FHEADER(A1 ), A2 




28941 


6000 


**** 




BRA 


F0PEN2 


restore registers and goto FGPEN2 


28981 














28981 






; open 


new f i le 






28981 














2848* 


4E 












28981 


301F 




@6 


MOVE. W 


(A7) + ,D0 


if 1 inx>0 then 


289AI 


67** 






BEQ.S 


®7 




289CI 








GETSYSC 


AO 




289CI 


2060 


FFFC 


# 


MOVE.L 


-4(A5), AO 




28A0I 


lOBC 


OOOB 




MOVE. B 


«IDUPFIL, (AO) 


iors It: = idupf i le 


L^ 












. 
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28A4I 


6000 


**** 






BRA 


FOPENl 




289A* 


OC 














28A8I 


43EE 


FFE4 




(87 


LEA 


-28(A6),A1 




28ACI 


0C29 


0000 


0001 




CMP.B 


«UNTYPFL, If Al ) 


if Ik ind=untujpedf i le then 


28B2I 


66** 








BNE. S 


®8 




28B4I 


137C 


0005 


0001 




MOVE. B 


«DATAFILE, 1(A1) 


, Ikind: =dataf ile 


28B2* 


06 














28BAI 


42A7 






S8 


MOVE. L 


#0, -(A7) 


func result 


28BCI 


486E 


FFE8 






PEA 


-24(A6) 


push 9ltid 


28C0I 


3F2E 


FFE6 






MOVE. W 


-26(A6),-(A7) 


push Isegs 


28C4| 


3F11 








MOVE. W 


{A1),-(A7) 


, push Ik ind 


28C6I 


2F2E 


FFEO 






MOVE. L 


-32(A6),-(A7) 


push Idir 


28CAI 


6100 


FD4A 






BSR 


ENTRTMP 


1 Inx: =entertemp 


28CEI 


301F 








MOVE. W 


(A7)+,D0 


if linx=0 then 


28D0I 


66** 








BNE.S 


99 




28D2I 










GETSYSC 


AO 




28D2I 


206D 


FFFC 




« 


MOVE. L 


-4(A5),A0 




28D6I 


lOBC 


0008 






MOVE. B 


#INOROOM, (AO) 


iors It: =inoroom 


28DAI 


6000 


**** 






BRA 


FOPENl 




28D0* 


OC 














28DEI 


3400 






99 


MOVE. W 


D0,D2 




28E0I 


CIFC 


OOIA 






MULS 


#DELENG, DO 


setup DO uith linx * deleng 


28E4I 


43EE 


FFE4 






LEA 


-28(A6),A1 




28E8I 


0C29 


0003 


0001 




CMP.B 


«TEXTFILE, 1(A1) 


if lkind=textf i le then 


28EEI 


6600 


FF6A 






BNE.S 


94 




28F2I 


246E 


FFEO 






MOVE. L 


-32(A6),A2 




28F6I 


D4C0 








ADD.N 


D0,A2 


compute ®ldir+ 1 inx 


28F8I 


322A 


0002 






MOVE. W 


LSTBLK(A2), 01 
FSTBLK(A2), 01 




28FCI 


9252 








SUB.W 




28FEI 


0801 


0000 






BTST 


#0,D1 


if odd( lastblock-f irstblock) 


29021 


67** 








BEQ. S 


@10 


. 


29041 


536A 


0002 






SUB.W 


«1,LSTBLK(A2) 


las tb lock: = las tb lock -1 


29081, 


"5341 








SUB.M 


»1,01 




2902* 


06 














290AI 


5941 






910 


SUB. W 


#4,01 


if lastblock-f irstblock>=4 then 


290CI 


6A00 


FF4C 






BPL 


94 


copy f header uith linx in DO 


29101 


3F02 








MOVE. M 


02, -(A7) 


else 


29121 


2F2E 


FFEO 






MOVE. L 


-32(A6),-(A7) 




29161 


6100 


FCA8 






BSR 


DELNTRY 


delentry(linx, Idir] 


291AI 


4267 








MOVE. M 


»0, -(A7) 


1 inx: =0 


291CI 


609C 








BRA 


98 


go set iosr It: = inoroom 


2830* 


OOEE 














2828* 


00F6 
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291EI 


45E9 


OOIE 




911 


LEA 


FHEADER(Al), A2 


with FHEADER 


29221 


4252 








MOVE. M 


#0,FSTBLK(A2) 


f irstblock: =0 


29241 


357C 


7FFF 


0002 




MOVE. H 


»$7FFF,LSTBLK(A2) 


lastblock: =niaxint 


292AI 


3429 


OOOC 






MOVE. W 


FUNIT(A1 ),D2 


funit (same as lunit) 


292EI 


6100 


F536 






BSR 


UNITISB 


if uisblkd then 


29321 


67** 








BEQ. S 


912 




29341 


206E 


FFEO 






MOVE. L 


-32(A6),A0 




29381 


3568 


OOOE 


0002 




MOVE. W 


DE0VBLK(A0 ), LSTBLK(A2 ) 


lastb lock: =ueovb Ik 


2932* 


OA 














293EI 


356E 


FFE4 


0004 


912 


MOVE. M 


-28(A6),FKIND(A2) 


dfkind:=:lkind 


29441 


422A 


0006 






MOVE. B 


#0,DTID(A2) 


dtid: =• ' 


29481 


357C 


0200 


0016 




MOVE. M 


•FBLKSIZ, LSTBYTE( A2 ) 


lastbyte: =fblksize 


294EI 


426A 


0018 






MOVE. W 


»0,DACCESS(A2) 


set date to zero 


29521 
















29521 










setup f 


ile size in FMAXBLK 




29521 
















2896* 


ODBC 














2878* 


OODA 














29521 


4240 






F0PEN2 


MOVE. W 


#0,00 


temp: =0 


29541 


4A6E 


OOOC 






TST.W 


12(A6) 


if openold then 


29581 


67** 








BEQ. S 


®1 




295AI 


302A 


0002 






MOVE. W 


LSTBLK(A2),D0 




295EI 


9052 








SUB.W 


FSTBLK(A2),D0 


temp: = lastb lock-firstb lock 


2958* 


06 














29601 


3340 


0016 




91 


MOVE. W 


D0,FMAXBLK{A1 ) 


f maxb Ik: =temp 


29641 
















29641 








; do so 


ftbuf stuff 




29641 
















29641 


4A69 


0038 






TST.W 


FS0FTBF(A1 ) 




29681 


67** 








BEQ. S 


94 




296AI 


337C 


0200 


003C 




MOVE. W 


»FBLKSIZ,FNXTBYT(A1 ) ; 


fnxtbyte: =fblksize 


29701 


4269 


003E 






MOVE. W 


»0,FBFCHNG(A1 ) ; 


fbufchngd: =false 


29741 


303C 


0200 






MOVE. W 


»FBLKSIZ,DO ; 


temp: =f b Iks ize 


29781 


4A6E 


OOOC 






TST.W 


12(A6) ; 


if openold then 


297CI 


67** 








BEQ.S 


®2 




297EI 


302A 


0016 






MOVE. W 


LSTBYTE(A2),D0 ; 


temp: =lastbyte 


297C* 


04 














29821 


3340 


003A 




192 


MOVE. W 


00,FMAXBYT(A1 ) ; 


fmaxbyte: =temp 


29861 


302A 


0004 






MOVE. W 


FKIND(A2),D0 




298AI 


0C40 


0003 






CMP.W 


#TEXTFILE.D0 ; 


if filektnd = textfile then 


298EI 


66** 








BNE.S 


94 




29901 


337C 


0002 


0018 




MOVE. W 


»2,FNXTBLK(A1 ) ; 


fnxtblk:=2 


29961 


4A6E 


OOOC 






TST.W 


12(A6) ; 


if not fopenold then 


299AI 


66** 








BNE.S 


94 




299CI 
















299CI 
299CI 








i fill 


first two blocks of the file with 


zeros 



299CI 
29A0I 
29A4| 



303C 0100 
47E9 0050 
220B 



MOVE.W »FBLKSIZ/2,D0 
LEA FBUFFER(A1 ), A3 
MOVE.L A3, 01 



address of directory buffer 
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29A6I 


425B 








ii3 MOVE. W 


«0, (A3)+ 


; 


fill fbuffer with zeroes 


29A8I 


5340 






SUB.N 


#1,00 






29AAI 


66FA 






BNE 


93 






29ACI 


3029 


OOOC 




MOVE. N 


FUNIT(A1 ),D0 


; 


unit « 


29B0I 


343C 


0200 




MOVE. H 


»FBLKSIZ,D2 


1 


length 
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29B4| 


45E9 


OOIE 




LEA 


FHEADER(A1 ), A2 






29B8I 


3612 






MOVE. M 


FSTBLK(A2), D3 


; 


block 


29BAI 


48E7 


FOOO 




MOVEM. L 


D0-D3, -(A7) 






29BEI 


6100 


FD6C 




BSR 


WRITEIT 






29C2I 


4CDF 


OOOF 




MOVEM. L 


(A7) + ,D0-D3 




next block 


29C6I 


5243 






ADD.W 


»1,D3 






29C8I 


6100 


FD62 




BSR 


WRITEIT 






29CCI 


















29CCI 










if fopenold then freset(f ) else reseter 


(M 


29CCI 


















299A* 


30 














298E* 


3C 














2968* 


62 














29CC( 


2F2E 


0012 




84 MOVE. L 


18(A6), -(A7) 
12(A6) 


; 


push F 


29D0I 


4A6E 


OOOC 




TST.W 


j 


if fopenold then 


29D4I 


67** 






BEQ.S 


95 






29D6I 


6100 


FA54 




BSR 


PRESET 


; 


freset(F) 


29DAI 


60** 






BRA. S 


FOPENl 


j 


else 


29D4* 


06 














29DCI 


6100 


FA8E 




S5 BSR 


RESETER 


; 


reseter(F ) 


29E0I 


















29E0I 










test iorslt, 


if nonzero then backup the 


fopen ( ie. it failed) 


29E0I 


















29E0I 








FOPENl GETSYSC 


AO 






2'9DA* 


04 














28DC* 


0104 














28A6* 


013A 














2858* 


0188 














29E0I 


206D 


FFFC 




« MOVE. L 


-4(A5),A0 
(AO) 






29E4| 


4A10 






TST.B 


; 


if iorsltoO then 


29E6I 


67** 






BEQ.S 


FOPENX 






29E8I 


226E 


0012 




MOVE. L 


18(A6), Al 






29ECI 


4229 


OOOA 




MOVE. B 


»0,FIS0PEN(A1 ) 
«0,FE0F(A1) 




f isopen: -false 


29F0I 


4229 


0005 




MOVE. B 




feof : =false 


29F4I 


4229 


0004 




MOVE. B 


»0,FE0LN(A1 ) 




fao In: sfalsa 


29F8I 


















29F8I 










cleanup and exit 






29F8I 


















29F8I 








FOPENX PUTNP 


-60(A6) 


; 


release(heaptop ) 


29E6* 


10 














27CE* 


022A 














27 AC* 


024C 














2782* 


0276 














29F8I 


2B6E 


FFC4 


FFF4 


« MOVE. L 


-60(A6), -12(A5) 






29FEI 


4E5E 






UNLK 


A6 






2A00I 


205F 






MOVE. L 


(A7)+,A0 ; pop return address 


2A02I 


DEFC 


OOOE 




ADD.W 


#14, A7 ; delete 


parameters 


2A06I 


4ED0 






JMP 


(AO) 






2A08I 


















2A08I 










FCLOSE ( 


F:FIB; TITLE: TID) 






2A08I 


















2A08I 










stack 








2A08I 


















2A08I 












10 F 






2A08I 












8 FTYPE 
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MONITOR 


FILE: FILPRC2.TEXT 








2A08I 










4 RETURN ADDRESS 




2A08I 












Old A6 






2A08I 












-2 FOUND 






2A08I 












-6 LDIR 






2A08I 












-8 LINX 






2A08I 












-32 FREE24 






2A08I 












-56 LVID 






2A08I 












-60 Heaptop 






2A08I 


















2A08I 


4E56 


FFC4 




FCLOSE LINK 


A6,»-60 






2A0CI 


6100 


DE74 




BSR 


OVFCHK 






2A10I 








GETNP 


-60(A6) 


; 


mark(heaptop ) 


2A10I 


2D6D 


FFF4 


FFC4 


» MOVE. L 


-12(A5), -60(A6) 






2A16I 


226E 


OOOA 




MOVE. L 


10(A6), Al 






2A1AI 


4A29 


OOOA 




TST.B 


FIS0PEN(A1 ) 


; 


if f isopen then 


2A1EI 


6700 


>tcif<«« 




BEQ 


FCLOSEX 






2A22I 


45E9 


OOIE 




LEA 


FHEADER(A1 ), A2 
FISBLKD(Al) 






2A26I 


4A29 


OOOB 




TST.B 




if fisblkd then 


2A2AI 


6700 


*«** 




BEQ 


(919 






2A2EI 


4A2A 


0006 




TST.B 


DTID(A2) 




if dt ido' ' then 


2A32I 


6700 


«>iiiK>K 




BEQ 


919 






2A36I 


0C6E 


0003 


0008 


CMP.W 


WCCRUNCH, 8(A6) 




if f type=ccrunch then 


2A3CI 


66** 






BNE. S 


91 






2A3EI 


3369 


0018 


0016 


MOVE. M 


FNXTBLK(A1 ),FMAXBLK( 


Al) ; 


fmaxblk: =fnxtb Ik 


2A44I 


026A 


OlFF 


0018 


AND. W 


«$1FF,DACCESS(A2) 




daccess. year: =100 


2A4AI 


006A 


C800 


0018 


OR.W 


»$C800,DACCESS(A2 ) 






2A50I 


3D7C 


0001 


0008 


MOVE. W 


»CL0CK,8(A6) 




f type: =c lock 


2A56I 


4A69 


0038 




TST.W 


FS0FTBF(A1 ) 




if fsoftbuf then 


2A5AI 


67** 






BEQ.S 


®1 






2A5CI 


3369 


C03C 


003A 


MOVE. W 


FNXTBYT(A1),FMAXBYT( 


Al) ; 


fmaxbyte: =fnxtbyte 
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2A5A* OS 












^ 


2A3C* 24 














2A62I 2F09 






Si 


MOVE. L 


A1,-(A7) 




2A64I 6100 


FA06 






BSR 


RESETER 


; resetBr(F) 


2A68I 226E 


OOOA 






MOVE.L 


10(A6), Al 




2A6CI 4A69 


OOIC 






TST.W 


FM0DIFD(A1 ) 


; if fmodified or 


2A70I 66** 








BNE.S 


92 




2A72I 45E9 


OOIE 






LEA 


FHEADER(A1 ),A2 
DACCESS(A2),D0 




2A76I 302A 


0018 






MOVE. M 


; deccess. year=100 or 


2A7AI 0240 


FEOO 






ANDI . W 


»SFE00, DO 




2A7EI 0C40 


C800 






CMP.W 


«$C800,D0 




2A82I 67** 








BEQ.S 


92 




2A84I 0C6E 


0002 


0008 




CMP.W 


«CPURGE,8(A6) 


; ftype=cpurge then 


2A8AI 6600 


**** 






BNE 


919 




2A8EI 






; currently Ivi 


d is restricted to 


16 bytes by volsrch ( ie. no machine name) 


2A82* OA 














2A70* IC 














2A8EI 41E9 


0040 




(32 


LEA 


FDEVVID(A1 ), AO 


; 9fdevvid 


2A92I 43EE 


FFC8 






LEA 


-56(A6),A1 


; ®l\iid 


2A96I 22D8 








MOVE. L 


(A0)+, (Al ) + 


; LVID:=FDEVVID 


2A98I 22D8 








MOVE. L 


(AO )+, (Al )+ 




2A9A1 22D8 








MOVE. L 


(A0)+, (Al )+ 




2A9CI 22D8 








MOVE. L 


(AO )+, (Al )+ 




2A9EI 42A7 








MOVE. L 


»0,-(A7) 




2AA0I 486E 


FFC8 






PEA 


-56(A6) 
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.TEXT 






2AA4I 4267 








MOVE. W 


»0,-(A7) 




2AA6I 486E 


FFFA 






PEA 


-6(A6) 




2AAAI 6100 


F602 






BSR 


VOLSRCH ; 


if funit<>volsearch( Ivid, false, Idir ) then 


2AAEI 301F 








MOVE. W 


(A7)+,D0 




2AB0I 226E 


OOOA 






MOVE. L 


10(A6'),A1 




2AB4I 45E9 


OOIE 






LEA 


FHEADER(A1 ), A2 




2AB8I B069 


OOOC 






CMP.W 


FUNIT(A1),D0 




2ABCI 67** 








BEQ.S 


93 




2ABEI 








GETSYSC 


AO 




2ABEI 206D 


FFFC 







MOVE. L 


-4(A5),A0 




2AC2I lOBC 


0005 






MOVE. B 


#ILSTUNT, (AO) 




2AC6I 6000 


**** 






BRA 


FCLOSEl 




2 ABC* OC 














2ACAI 4243 






03 


MOVE. W 


#0,D3 


; found: =false 


2ACCI 7401 








MOVE.L 


»1,D2 


; Hnx:=l 


2ACEI 206E 


FFFA 






MOVE. L 


-6(A6),A0 


; get LDIR 


2AD2I 3228 


0010 






MOVE. W 


DNUMFLS(A0),D1 


; get «FILES in directory 


2AD6I 2648 








MOVE. L 


A0,A3 




2AD8I D6FC 


OOIA 






ADD.W 


«DELENG, A3 


; compute LDIRT[1] 


2ADCI B441 






@4 


CMP.W 


D1,D2 


; while linx<=«FILES and not found do 


2ADEI 6E** 








BGT. S 


96 




2AE0I 4A43 








TST.W 


D3 




2AE2I 66** 








BNE.S 


96 




2AE4I 3012 








MOVE. W 


FSTBLK(A2),D0 




2AE6I B053 








CMP.W 


FSTBLK(A3),D0 


; tl: = ldirT[linx]. df irstblksdf irstblk 


2AE8I 66** 








BNE.S 


95 




2AEAI 302A 


0002 






MOVE.W 


LSTBLK(A2),D0 
LSTBLK(A3),D0 




2AEEI B06B 


0002 






CMP.W 


; t2:=ldirr[linx]. dlastblk=dlastblk 


2AF2| 66** 








BNE.S 


95 




2AF4I 7601 








MOVE. L 


«1,D3 


; found: =tl and t2 


2AF2* 02 














2AE8* OC 














2AF6I 5242 






IDS 


ADD.W 


«1,D2 


; I inx: = 1 inx + 1 


2AF8I D6FC 


OOIA 






ADD.W 


»DELENG, A3 




2AFCI 60DE 








BRA. S 


94 




2AE2* lA 














2ADE* IE 














2AFEI 4A43 






(36 


TST.W 


D3 


; if not found then 


2B00I 66** 








BNE. S 


97 




2B02I 








GETSYSC 


AO 




2B02I 206D 


FFFC 




# 


MOVE. L 


-4(A5), AO 




2B06I lOBC 


0006 






MOVE. B 


WILSTFIL, (AO) 


; iors It: = i lostf iie 


2B0AI 6000 


KokXiitl 






BRA 


FCLOSEl 


; goto 1 


2B00* OC 














2B0EI 5342 






®7 


SUB.W 


»1,D2 


; 1 inx: = 1 inx-1 


2B10I 3042 


FFF8 






MOVE. W 


D2,-8(A6) 




2B14I 0C5E 


0000 


0008 




CMP.W 


«CNORMAL, 8(A6) 


; if ( f type=cnorma 1 and 


2B1AI 66** 








BNE. S 


98 




2B1CI 206E 


FFFA 






MOVE.L 


-6(A6), AO 




2B20I 3602 








MOVE. W 


D2,D3 




2B22I C7FC 


OOIA 






MULS 


ttDELENG, D3 




2B26I 3030 


3018 






MOVE. W 


DACCESS(A0,D3), DO 


; Id irr[ 1 inx ]. daccess. yBar = 100 ) or 


2B2AI 0240 


FEOO 






AND.W 


#$FEOO, DO 




2B2EI 0C40 


C800 






CMP.W 


»$C800,D0 




2B32I 67** 








BEQ.S 


09 




2B1A* 18 
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FILE: FILPRC2 
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2B34| 0C6E 


0002 


0008 


®Q 


CMP.W 


»CPURGE,8(A6) 


; ftype=cpurge then 


2B3AI 66** 








BNE.S 


910 




2B32* 08 














2B3CI 3F02 






99 


MOVE. W 


D2,-(A7) 
AO, -(A7) 




2B3EI 2F08 








MOVE. L 




2B40I 6100 


FA7E 






BSR 


DELNTRY 


; de lentry( 1 inx. Id ir ) 


2B44| 6000 


Id*** 






BRA 


318 




2B3A* OC 














2B48I 226E 


OOOA 




910 


MOVE. L 


10(A6), Al 


; else 
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2B4CI 


45E9 


OOIE 






LEA 


FHEADER(A1 ), A2 






2B50I 


42A7 








MOVE. L 


«0, -(A7) 






2B52I 


486A 


0006 






PEA 


DTID(A2) 






2B56I 


3F3C 


0001 






MOVE. Ul 


»1, -(A7) 






2B5AI 


2F08 








MOVE. L 


AO, -{A7) 






2B5CI 


6100 


F858 






BSR 


DIRSRCH ; 


dupinx: =dirsrch(dt id, true, Idir) 




2B60I 


301F 








MOVE. W 


{A7) + ,D0 






2B62I 


67** 








BEQ.S 


911 ; 


if dupinxoO and dupinxolinx th 


en 


2B64I 


48C0 








EXT.L 


DO 






2B66I 


81FC 


OOIA 






DIVS 


«DELENG, DO 






2B6AI 


B06E 


FFF8 






CMP.W 


-8(A6),D0 






2B6EI 


67** 








BEQ.S 


Sll 






2B70I 


3F00 








MOVE. H 


DO, -(A7) 
DO, -(A7) 






2B72I 


3F00 








MOVE.W 






2B74I 


2F2E 


FFFA 






MOVE. L 


-6(A6), -(A7) 






2B78I 


6100 


FA46 






BSR 


DELNTRY ; 


de lentry(dup inx, Idir) 




2B7CI 


301F 








MOVE. M 


(A7)+,D0 






2B7E| 


B06E 


FFF8 






CMP.W 


-8(A6),D0 ; 


if dupinx<linx then 




2B82i 


6C** 








BGE.S 


Sll 






2B84I 


536E 


FFF8 






SUB.W 


«1,-8(A6) ; 


1 inx: = 1 inx-1 




2B82* 


04 
















2B6E* 


18 
















2B62* 


24 
















2B88I 


226E 


OOOA 




911 


MOVE. L 


10(A6),A1 






2B8CI 


45E9 


OOIE 






LEA 


FHEADER(A1),A2 






2B90I 


362E 


FFF8 






MOVE. M 


-8(A6),D3 






2B94| 


C7FC 


OOIA 






MULS 


•DELENG, D3 






2B98I 


206E 


FFFA 






MOVE.L 


-6(A6), AO 






2B9CI 


3030 


3018 






MOVE. N 


DACCESS(A0,D3),D0 ; 


if ldirT[ 1 inx]. daccess. yBar = 100 


then 


2BA0I 


0240 


FEOO 






AND.M 


«j;feoo,do 






2BA4I 


0C40 


C800 






CMP.W 


«*C800, DO 






2BA8I 


66** 








BNE. S 


913 






2BAAI 


0C6A 


C800 


0018 




CMP.W 


««C800,DACCESS(A2) ; 


if daccess. year=100 then 




2BB0I 


66** 








BNE.S 


912 






2BB2I 








914 


ADDRTHD 


A3 






2BB2I 


47ED 


FFCA 




# 


LEA 


-54(A5),A3 






2BB6I 


3S53 


0018 






MOVE. W 


(A3),DACCESS(A2) ; 


daccess: =thedate 




2BB0« 


08 
















2BBAI 


60** 






912 


BRA.S 


915 ; 


a Ise 




2BA8x< 


12 
















2BBCI 


4A69 


00 IC 




913 


TST.W 


FMODIFD(Al) ; 


if fmodified then 




2BC0I 


66F0 








BNE.S 


814 ; 


daccess: =thedate 




2BC2I 


3570 


3018 


0018 




MOVE. W 


DACCESS(AO, D3 ), DACCESS(A2 


) 




2BBA* 


OC 
















2BC8I 


3552 


0002 




915 


MOVE. W 


FSTBLK ( A2 ), LSTBLK ( A2 ) ; 


dlastblk:=df irstblk+fmaxblk 




PAGE 


- 109 


MONITOR 


FILE: FILPRC2 


.TEXT 








2BCCI 


3029 


0016 






MOVE. W 


FMAXBLK(A1 ), DO 






2BD0I 


D16A 


0002 






ADD.W 


DO, LSTBLK (A2) 






2BD4f 


4A69 


0038 






TST.W 


FSOFTBF(Al) ; 


if softbf then 




2BD8I 


67** 








BEQ.S 


916 






2BDAI 


3569 


003A 


0016 




MOVE. W 


FMAXBYT(A1 ),LSTBYTE(A2) ; 


dlastbyte: =fmaxbyte 




2BD8* 


06 
















26E0I 


026A 


OOOF 


0004 


(sie 


ANDI.W 


«$000F,FKIND(A2) ; 


fheader. f illerl:=0 




2BE6I 


4269 


OOIC 






MOVE. W 


»0,FM0DIFD(A1 ) ; 
FHEADER(Al), A3 


fmodified: sfalse 




2BEAI 


47E9 


OOIE 






LEA 






2BEEI 


49F0 


3000 






LEA 


0(A0,D3 ),A4 






2BF2I 


700D 








MOVE. L 


«DELENG/2, DO 






2BF4I 


38DB 






917 


MOVE. W 


(A3)+,(A4)* ; 


ldirt[ linx]: =fheader 




2BF6I 


5340 








SUB.W 


»1,D0 






2BF8I 


66FA 








BNE.S 


917 






2B46* 


00B4 
















2BFAI 


226E 


OOOA 




918 


MOVE.L 


10(A6),A1 






2BFEI 


3F29 


OOOC 






MOVE. W 


FUNIT(A1 ), -(A7) ; 
-6(A6).-(A7) ; 


push fun it 




2C02I 


2F2E 


FFFA 






MOVE. L 


push Idir 




2C06I 


6100 


FB32 






BSR 


WRTDIR ; 


iuritedir(lunit, Idir) 




2A8C* 


017E 
















2A34* 


01D6 
















2A2C* 


OlDE 
















2C0AI 


226E 


OOOA 




919 


MOVE. L 


10(A6),A1 






2C0EI 


45E9 


OOIE 






LEA 


FHEADER(A1 ), A2 






2C12I 


0C6E 


0002 


0008 




CMP.W 


«CPURGE,8(A6) 


if ftype=cpurge then 




2C18I 


66** 








BNE.S 


FCLOSEl 






2C1AI 


4A2A 


0006 






TST.B 


0TID(A2) ; 


if dt id=' ' then 




2C1EI 


66** 








BNE.S 


FCLOSEl 






2C20I 


4E71 








NOP 




??? 




2C1E* 


02 
















2C18* 


08 
















2B0C* 


0116 
















2AC8* 


015A 
















2C22I 


4229 


OOOA 




FCLOSEl 


MOVE. B 


»0,FIS0PEN(A1 ) 
»1,FE0F(A1) ; 


f isopen: -fa Ise 




2C26I 


137C 


0001 


0005 




MOVE. B 


feof: =false 




2C2CI 


137C 


0001 


0004 




MOVE. B 


«1,FE0LN(A1) ; 


feo In: =fa Ise 




2C32I 








FCLOSEX 


PUTNP 


-60(A6) ; 


ralease(heaptop) 




2A20H' 


0212 
















2C32I 


2S6E 


FFC4 


FFF4 


« 


MOVE. L 


-60{A6), -12(A5) 






2C38I 


4E5E 








UNLK 


A6 






2C3AI 


205F 








MOVE. L 


(A7)+,A0 ; 


pop return address 




2C3CI 


5C4F 








ADD.W 


»6,A7 ; 


delete parameters 




2C3EI 


4ED0 








JMP 


(AO) 






2C40I 








; 










2C40I 


















2C40I 


















2C40I 








; 










2C40I 










. INCLUDE BLOCK! 0. TEXT 
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2C40I 
2C40( 
2C40I 
2C40I 
2C40I 
2C40I 
2C40I 
PAGE - 110 MONITOR FILE: BLOCKIO.TEXT 



Filename blockio 



CANTSTR -- CANTSTRETCH 



2C40 
2C4a 
2C40 
2C40 
2C40 
2C40 
2C40 
2C40 
2C40 
2C40 
2C40 
2C40 
2C40 
2C40I 
2C44 
2C48 
2C48 
2C4E 
2C54 
2C58 
2C5C 
2C60 
2C64! 
2C66 
2C66 
2C6A 
2C6E 
2C70I 
2C72 
2C74 
2C76I 
2C78 
2C7C| 
2C7EI 
2C82I 
2C86 
2C88 
2C8C 
2C90 
2C94 
2C96 
2C96 
2C9A 
2C64 
2C9E! 
2C94 
2CA2 
2CA4I 
2CA6 
2CAA 
2CAEj 
2CB0 
2CB4 
2CB8 
2CB8 
PAGE 



2CBAI 

2CBCI 

2CBEI 

2CC0I 

2CC2I 

2CC6I 

2CCAI 

2CCCI 

2CCA* 

2CC0* 

2CCEI 

2CD0I 

2CD4I 

2CBA* 

2CB6* 

2CD6I 

2CD8I 

2CDAI 

2CDAI 

2CDEI 

2CE2I 

2CD8* 

2CE4I 

2CE6I 

2CE8I 

2CECI 

2CE6* 

2CEEI 



stack: 



12 

8 

4 



-2 

-6 

-10 

-32 

-56 

-60 



Func result 

File Po inter 

Return address 

Old A6 

OK 

LDIR 

LASTAVAILBLK 

FREE22 

LVID 

Heaptop 



4E56 FFC4 
6100 DC3C 

2D6D FFF4 FFC4 
3D7C 0001 OOOE 
426E FFFE 
226E 0008 
45E9 00 IE 
4A2A 0006 
67** 



CANTSTR LINK 
BSR 
GETNP 



41E9 
43EE 
22D8 
2208 
22D8 
22D8 
42A7 
486E 
4267 
486E 
6100 
301F 
226E 
45E9 
B069 
67** 



0040 
FFC8 



FFC8 

FFFA 
F42A 

0008 
OOIE 
OOOC 



2:060 FFFC 
lOBC 0005 
38 

6000 **** 
OC 
4243 
7401 

206E FFFA 
3228 0010 
2648 

D6FC 001 A 
B441 
6E** 
4A43 
- Ill MONITOR 



66** 

3012 

BOS 3 

66** 

302A 0002 

B06B 0002 

66** 

7601 

02 

OC 

5242 

D6FC 001 A 

60DE 

lA 

IE 

4A43 

66** 

2060 FFFC 

lOBC 0006 

60** 

OA 

B242 

6E** 

3828 OOOE 

60** 

06 

3813 



A6,«-60 

OVFCHK 

-60(A6) 

-12(A5), -60(A6) 
»1,14(A6 
#0, -2(A6 
8(A6), Al 
FHEADER( Al ), A2 
DTID(A2) 



cantstpetch: 
ok: =f a Ise 



= true 



mark(heaptop ) 
MOVE.L --- -■ 

MOVE. M 
MOVE. M 
MOVE. L 
LEA 
TST. B 
BEQ.g 
currently Ivid is restricted to 16 bytes by volsrch ( ie. no machine name) 
FDEVVID(Al), AO 



if length(DTID) then 



LEA 

LEA -56(A6), Al 

MOVE.L (A0)+,(A1)+ 

MOVE.L (A0)+,(A1)+ 

MOVE.L (A0)+,(a1) + 

MOVE.L (A0)+,(A1) + 

MOVE.L «0,-{A7) 

PEA -56 (A6) 

MOVE.W #0,-(A7) 

PEA -6(A6) 

BSR VOLSRCH 

MOVE, k (A7)*,D0 

MOVE.L 8(A6),A1 

LEA FHEADER(Al), A2 

CMP. W FUNIT(A1),D0 

BEG. S @1 

GETSYSC AO 

MOVE.L -4(A5),A0 

MOVE.B «ILSTUNT, (AO) 



®f dew id 
Slv id 
LVID:=FDEVVID 



if funlt<>wolsearch( Iv id, fa Ise, Idir ) then 



FILE: 



@0 BRA 

Si MOVE. W 
MOVE. L 
MOVE. L 
MOVE. W 
MOVE. L 
ADD.W 

02 CMP. N 
BGT. S 
TST. W 

BLOCKIO.TEXT 



BNE.S 
MOVE. W 
CMP. W 
BNE.S 
MOVE. W 
CMP. W 
BNE.S 
MOVE. L 



CANTSTl 

«0,D3 

»1,D2 

-6(A6),A0 

DNUMFLS(A0),D1 

A0,A3 

»DELENG, A3 

D1,D2 

134 

D3 



found: =false 

linx:=l 

get LDIR 

get #FILES in directory 

compute LDIRT[1] 

while ( 1 inx<=»FILES ) and (not found) do 



(94 

FSTBLK(A2), DO 

FSTBLK(A3),D0 ; tl: =( Id ir T[ 1 inx ]. df irstb lk = df irstb Ik ) 

®3 

LSTBLK(A2),D0 

LSTBLK(A3),D0 ; t2: =( Id ir T[ I inx ]. d lastb lk = d lastb Ik ) 



133 



ADD.W 
ADD.W 
BRA. S 



03 
»1,D3 



#1,D2 

»DELENG, A3 
(32 



(95 



(36 



TST.W 
BNE.S 
GETSYSC 
MOVE. L 
MOVE. B 
BRA.S 

CMP. W 
BGT.S 
MOVE. W 
BRA.S 



D3 
OS 
AO 

-4(A5),A0 
aiLSTFIL, (AO) 
CANTSTl 

D2,D1 



; found: =tl and t2 

; 1 inx: = 1 inx + 1 

; if not found then iors 1 1: = i lostf i le; goto 1 

; if 1 inx > «FILES then 



DEOVBLK(AO ),D4 ; lastava i lb Ik: = Id ir T[0 ]. dnumf i les 
(37 ; else 



MOVE.W FSTBLK(A3),D4 ; lastava i lb Ik: = Id ir r[ 1 inx ]. df irstb Ik 
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2CEC* 


02 


















2CF0I 


302A 


0002 




87 


MOVE. M 


LSTBLK(A2),D0 ; 


If 


(dls 


tblk<lastava i Iblk ) or 


2CF4I 


B044 








CMP.W 


04,00 








2CF6I 


6C** 








BGE.S 


@8 








2CF8I 


302A 


0016 






MOVE. M 


LSTBYTE(A2),D0 ; 




(dls 


tbyte<fblks Ize ) then 


2CFCI 


0C40 


0200 






CMPI.W 


«FBLKSIZ,DO 








2D00I 


6C** 








BGE.S 


@8 








2D02! 


96FC 


OOIA 






SUB.W 


tfOELENG, A3 








2D06I 


3744 


0002 






MOVE. W 


04,LSTBLK(A3) ; 




dlas 


tblk:=lastavai Iblk; 


2D0AI 


377C 


0200 


0016 




MOVE. W 


#FBLKSIZ,LSTBYTE( 


A3) 






2D10I 


3044 


FFF6 






MOVE.W 


D4,-10(A6) ; 




dlastbyte:=fblksize 


20141 


3F29 


OOOC 






MOVE. M 


FUNIT(A1),-(A7) 








2D18I 


2F2E 


FFFA 






MOVE. L 


-6(A6),-(A7) 








2D1CI 


6100 


FAIC 






BSR 


WRTOIR ; 




uir itedir( fun it, Idir) 


2D20I 










GETSYSC 


AO 








2D20I 


2060 


FFFC 


« 




MOVE. L 


-4(A5), AO 
(AO) ; 








2D24I 


4A10 








TST.B 


if 


iors 


ItoO then goto 1 


2D26I 


66** 








BNE. S 


CANTSTl 








2D28I 


226E 


0008 






MOVE.L 


8(A6),A1 








2D2CI 


45E9 


OOIE 






LEA 


FHEADER(A1 ), A2 
#0,FE0F(A1) J 








2D30I 


4229 


0005 






MOVE. B 


feof:=f 


a Ise 


2D34I 


137C 


0001 


0004 




MOVE. B 


«1,FE0LN(A1) ; 


f eo In: = 


false 


2D3AI 


356E 


FFF6 


0002 




MOVE.W 


-10(A6),LSTBLK{A2 


) 


; 


dlstblk:=lastavailblk 


2D40t 


357C 


0200 


0016 




MOVE. W 


»FBLKSIZ,LSTBYTE( 


^2) 


1 


dlastbyte: =fblksize 


2D46I 


026A 


OlFF 


0018 




ANO. W 


#$1FF,0ACCESS(A2) 








2D4CI 


006A 


C800 


0018 




OR.W 


#$C800,OACCESS(A2 


) 


; 


daccess. year: =100 


2DS2I 


426E 


OOOE 






MOVE. W 


#0,14(A6) ; 


canstretch: =falsa 


2D00* 


54 


















PAGE 


- 112 


MONITOR FILE: 


3L0CKI0 


.TEXT 










2CF6* 


SE 


















2D56I 


3D7C 


0001 


FFFE 


S8 


>I0VE. M 


#1,-2(A6) ; 


ok: 


= true 


2026 « 


34 


















2CE2* 


78 


















2CA0* 


OOBC 


















205CI 


4A6E 


FFFE 




:antsti 


TST.W 


-2(A6) 








20601 


66** 








BNE.S 


CANTSTX 








2D62I 


137C 


0001 


0005 




MOVE. B 


»1,FE0F(A1) 








2D68I 


137C 


0001 


0004 




MOVE. B 


«1,FE0LN(A1) 








2D6EI 








:antstx 


PUTNP 


-60(A6) 




; 


re lease(heaptop ) 


2060* 


OC 


















206EI 


2B6E 


FFC4 


FFF4 » 




MOVE. L 


-60(A6), -12(A5) 








20741 


4E5E 








UNLK 


A6 








20761 


205F 








MOVE. L 


(A7)+,A0 ; 


pop return address 


20781 


5C4F 








AOO.M 


«6, A7 ; 


de 


ete 


parameters 


2D7AI 


4ED0 








JMP 


(AO) 








207CI 




















207CI 










BLKIO - 


- BLOCKREAD ANO BLOCKWRITE 




207CI 




















207CI 










stack: 










207CI 




















2D7CI 












22 Function 


-esL 


It 




207CI 












18 File address 






207CI 












14 Buffer address 




207CI 












12 Number of 


b locks 




2D7CI 












10 Rel block 


number 




207CI 












8 Ooread 








207CI 












4 Return address 




2D7CI 












Old A6 








207CI 












-2 Chunk 








207CI 












-4 Chunks Ize 








2D7CI 












-6 Nu«b locks 








207CI 












-8 Blocknum 








2D7CI 












-12 Index 








207CI 












-14 unitnum 








2D7C1 




















2D7CI 










LOOPIO 










207CI 




















207CI 


3D6E 


OOOC 


FFFA 1 


-OOP 10 


MOVE. W 


12(A6), -6(A6) 
10 A6 ,-8(A6) 






copy nblocks to numb locks 


2D82I 


3D6E 


OOOA 


FFF8 




MOVE. W 






copy rblock to blocknum 


2D88I 


2D6E 


OOOE 


FFF4 




MOVE. L 


14(A6 ,-12(A6) 
FUNIT(aI), -14(A6) 






copy buffer address to index 


2D8EI 


3D69 


OOOC 


FFF2 




MOVE. W 






copy unit number 


20941 


302E 


OOOC 






MOVE. M 


12(A6),00 








20981 


0C40 


003F 






CMPI.W 


«63,00 






if numblocks > 63 then 


2D9CI 


60** 








BLT. S 


01 








2D9EI 


703F 








MOVE. L 


»63,O0 






chunk: =63 


209C* 


02 


















2OA0I 


3040 


FFFE 


( 


ill 


MOVE. W 


D0,-2(A6) 






else chunk: =numb locks 


2DA4| 


CIFC 


0200 






MULS 


»FBLKSIZ,D0 








20A8I 


3040 


FFFC 






MOVE. W 


00, -4(A6) 
-6(A6) 






chunks ize: =chunk*b locks ize 


20ACI 


4A6E 


FFFA 


( 


12 


TST.W 






uihile numblocksoO do 


2DB0I 


67** 








BEQ. S 


S5 








2DB2I 


3F2E 


FFF2 






MOVE.W 


-14(A6),-(A7) 






unit« 


2DB6I 


222E 


FFF4 






MOVE. L 


-12(A6),01 






address 


PAGE 


- 113 


MONITOR FILE: 


3L0CKI0 


.TEXT 










2DBAI 


342E 


FFFC 






MOVE. W 


-4( A6),D2 
-8(A6),D3 






length 


2DBEI 


362E 


FFF8 






MOVE.W 




; 


block# 


2DC2I 


4A6E 


0008 






TST.W 


8(A6) 








20C6I 


67** 








BEQ. S 


a3 




; 


if doread then 


2DC8I 


7C01 








MOVE. L 


«INBIT,D6 




; 


unitread 


2DCAI 


60** 








BRA. S 


®4 




; 


else 


2DC6* 


04 


















20CCI 


7C02 






83 


MOVE. L 


»0tjTBIT,D6 




■' 


un i tujr i te 
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2DCA 


* 02 
















2DCE 


6100 


EB8C 




@4 


BSR 


GETUNIT 


; get untt» and validate, setup 


drvr 


2002 


4E90 








JSR 


(AO) 


; go to driver 




2DD4 










GETSYSC 


AO 






2DD4 


2060 


FFFC 




« 


MOVE. L 


-4(A5),A0 
(AO) 






2DD8 


4A10 








TST. B 


; test iorslt 




2DDA 


66** 








BNE. S 


®5 


; exit loopio if nonzero 




2DDC 


302E 


FFFE 






MOVE. W 


-2(A6),00 






2DE0 


916E 


FFFA 






SUB.M 


DO, -6(A6) 


; sub chunk From numb locks 




2DE4 


302E 


FFFC 






MOVE. M 


-4(A6),00 






2DE8 


48C0 








EXT.L 


DO 






2DEA 


DIAE 


FFF4 






AOO.L 


00, -12(A6) 


; add chunks ize to index 




2DEEI 


302E 


FFFE 






MOVE. U 


-2(A6),00 






2DF2 


016E 


FFF8 






AOO.W 


00, -8(a6) 


; add chunk to blocknum 




2DF6I 


302E 


FFFA 






MOVE. M 


-6(A6),00 
-2(A6),D0 






2DFAI 


B06E 


FFFE 






CMP.W 


; if numb locks < chunk then 




2DFE 


6EAC 








BGT. S 


(92 






2E00 


3040 


FFFE 






MOVE. M 


DO, -2(A6) 


; chunk: =numb locks 




2E04I 


CIFC 


0200 






MULS 


»FBLKSIZ,DO 






2E08 


3040 


FFFC 






MOVE. M 


DO, -4(A6) 


; chunksize: =chunk*b locks ize 




2E0C 


609E 








BRA 


(92 






2DDA 


* 32 
















2DB0 


* 5C 
















2E0EI 


4E75 






95 


RTS 








2E10 


















2E10 










BLKIO 








2E10I 


















2E10I 


4E56 


FFF2 




BLKIO 


LINK 


A6,»-14 






2E14 


6100 


DA6C 






BSR 


OVFCHK 






2E18 


42AE 


0016 






MOVE. L 


»0,22(A6) ; 


default func result gets zero 




2E1CI 










GETSYSC 


AO ; 


ptr to iosrlt 




2E1C 


2060 


FFFC 




« 


MOVE. L 


-4(A5),A0 






2E20 


4210 








MOVE. B 


«INOERR, (AO) ; 


initialize iorslt 




2E22I 


226E 


0012 






MOVE.L 


18(A6),A1 


ptr to FIB 




2E26 


4A29 


OOOA 






TST.B 


FIS0PEN(A1 ) ; 


file open ? 




2E2A 


66** 








BNE. S 


SI 






2E2CI 


lOBC 


0000 




(90 


MOVE. B 


•INOTOPN, (AO) 


not open or * blocks < 




2E30 


6000 


»c>il«ltc 






BRA 


BLKRXIT 






2E2A 


* 08 
















2E34I 


4A6E 


oooc 




91 


TST.W 


12(A6) 


tt blocks >=0 




2E38 


6BF2 








BMI.S 


(90 






2E3A 


4A29 


OOOB 






TST.B 


FISBLKO(Al) ; 


blocked device ? 




2E3E 


6700 


«««« 






BEQ 


97 






2E42 


45E9 


OOIE 






LEA 


FHEADER(A1),A2 ; 


ptr to dir entry 




2E46 


4A6E 


OOOA 






TST.W 


10(A6) ; 


if rblock < then rb lock: =f nxtb Ik 




2E4A 


6A** 








BPL.S 


92 






2E4C 


3069 


0018 


OOOA 




MOVE. W 


FNXTBLK(A1 ), 10(A6 


) 




2E4A 


* 06 
















PAGE 


- 114 


MONITOR 


FILE: BLOCKIO 


.TEXT 








2E52 


3012 






92 


MOVE. M 


FSTBLK(A2),00 






2E54 


016E 


OOOA 






AOO.W 


00, 10(A6) ; 


rblock: =rb lock*df irstb Ik 




2E58 


302E 


OOOA 






MOVE. W 


10(A6),00 
12(A6),D0 






2E5CI 


006E 


OOOC 






AOO. W 






2E60 


B06A 


0002 






CMP.W 


LSTBLK(A2), 00 ; 


if rblock+nblocks > dlstblk then 




2E64 


6F** 








BLE. S 


94 






2E66 


4A6E 


0008 






TST.W 


8(A6) ; 


if not doread then 




2E6A 


66** 








BNE.S 


93 






2E6CI 


42A7 








MOVE. L 


«0, -(A7) 
Al, -(A7) 






2E6EI 


2F09 








MOVE. L 






2E70 


6100 


FOCE 






BSR 


CANTSTR ; 


junk: =cantstretch 




2E74I 


4A5F 








TST.W 


(A7)* 






2E76I 










GETSYSC 


AO 






2E76 


2060 


FFFC 




tt 


MOVE. L 


-4(A5),A0 






2E7A 


226E 


0012 






MOVE. L 


18(A6),A1 






2E7E 


45E9 


OOIE 






LEA 


FHEADER(A1 ), A2 






2E6A 


* 16 
















2E82 


302A 


0002 




®3 


MOVE. W 


LSTBLK(A2),00 






2E86 


906E 


OOOA 






SUB.W 


10(A6),00 
D0,12(A6) ; 






2E8A 


3040 


OOOC 






MOVE. W 


nb locks: =dlstblk-rb lock 




2E64 


* 28 
















2E8E 


302E 


OOOA 




m4 


MOVE. W 


10(A6), 00 






2E92 


B06A 


0002 






CMP.W 


LSTBLK(A2),D0 






2E96 


60** 








BLT.S 


95 






2E98 


137C 


0001 


0005 




MOVE. B 


»1,FE0F(A1) ; 


feof: =rblock>=dIstblk 




2E9E 


6000 


**** 






BRA 


BLKRXIT 






2E96 


* OA 
















2EA2 


4229 


0005 




05 


MOVE. B 


«0,FE0F(A1) 
A0-A2, -(A7) 






2EA6 


48E7 


OOEO 






MOVEM. L 






2EAA 


6100 


FEOO 






BSR 


LOOPIO 






2EAE 


4CDF 


0700 






MOVEM. L 


(A7)+, A0-A2 

(AO) ; 






2EB2 


4A10 








TST.B 


if iorslt <> then exit 




2EB4 


6600 


HofoXW 






BNE 


BLKRXIT 






2EB8 


4A6E 


0008 






TST.W 


8(A6) 






2EBC 


66** 








BNE.S 


®6 ; 


if not doread then f mod if ied: =true 




2EBE 


337C 


0001 


OOIC 




MOVE. W 


«1,FM0DIF0(A1) 






2EBC 


* 06 
















2EC4 


3D6E 


OOOC 


0018 


06 


MOVE. W 


12(A6),24(A6) ; 
12(A6), DO 


func result gets nb locks 




2ECA 


302E 


OOOC 






MOVE. W 






2ECE 


016E 


OOOA 






AOO.W 


DO, 10(A6) ; 


rblock: =rb lock + nb locks 




2ED2 


302E 


OOOA 






MOVE.W 


10(A6),D0 ; 


feof: =rblock=dlstblk 




2ED6 


B06A 


0002 






CMP.W 


LSTBLK(A2),D0 






2EDA 


57C0 








SEQ 


DO 






2EDC 


0200 


0001 






AND.B 


«1,D0 






2EE0 


1340 


0005 






MOVE. B 


D0,FE0F(A1 ) 
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2EE4I 


3G2E 


OOOA 






MOVE.W 


10(A6),DO 




2EE8I 


9052 








SUB.W 


FSTBLK(A2),D0 




2EEAI 


3340 


0018 






MOVE.W 


D0,FNXTBLK(A1 ) 
FMAXBLK(A1 ),D0 


i fnxtblk:=rblock-dfrirstblk 


2EEEI 


B069 


0016 






CMP.W 




2EF2I 


6F00 


>K 41X1 It! 






BLE 


BLKRXIT 


; if fnxtblk > fmaxblk then f maxb Ik: =f nxtb 1 


2EF6I 


3369 


0018 


0016 




MOVE. W 


FNXTBLK(A1 ), FMAXBLKfAl ) 


2EFCI 


eooo 


DDtiXiKl 






BRA 


BLKRXIT 




2E40t' 


ooco 














2F00I 


3D6E 


oooc 


0018 


07 


MOVE. W 


12(A6), 24(A6) 


; func result gets nblocks 


PAGE 


- US 


MONITOR 


FILE: BLOCKIO 


.TEXT 






2F06I 


48E7 


OOEO 






MOVEM. L 


A0-A2, -(A7) 




2F0AI 


6100 


FE70 






BSR 


LOOPIO 




2F0EI 


4CDF 


0700 






MOVEM. L 


(A7)+, A0-A2 
(AO) 




2F12I 


4A10 








TST.B 


; if iorslt <> then 


2F14| 


67** 








BEQ.S 


®8 




2F16I 


426E 


0018 






MOVE. N 


«0,24(A6) 


; func result: =0 and exit 


2F1AI 


60** 








BRA.S 


BLKRXIT 




2F14* 


06 














2F1CI 


4A6E 


0008 




@8 


TST.W 


8(A6) 


; if doread then 


2F20I 


66** 








BNE. S 


BLKRXIT 




2F22I 


4E71 








NOP 






2F20* 


02 














2F1A* 


08 














2EFE* 


0026 














2EF4* 


0030 














2EB6* 


006E 














2EA0« 


0084 














2E32* 


00F2 














2F24I 


4E5E 






BLKRXIT 


UNLK 


A6 




2F26I 


205F 








MOVE. L 


(A7) + ,A0 


; pop return address 


2F28I 


DEFC 


0010 






ADD.W 


#16, A7 


; delete parameters 


2F2CI 


4EO0 








JMP 


(AO) 




2F2EI 








; 








2F2EI 
















2F2EI 
















2F2EI 








; 








2F2EI 










.INCLUDE TEXTIO. TEXT 




2F2EI 


















2F2EI 












Filename textio 




2F2EI 


















2F2EI 
















2F2EI 


















2F2EI 












PROCEDURE FWRTCHAR (FILE: 


FIB; CH:CHAR) 


2F2EI 


















2F2EI 












stack: 






2F2EI 


















2F2EI 














10 Return address 


2F2EI 














6 File address 


2F2EI 














4 Character 


2F2EI 














Old A6 




2F2EI 


















2F2EI 








FWRTCHAR 






2F2EI 


4E56 


0000 






LINK 


A6,»0 




2F32I 


206E 


0006 






MOVE. L 


6(A6), AO 


; with F do 


2F36I 


4A28 


OOOA 






TST.B 


FISOPEN(AO) 


; if fisopen then 


2F3AI 


67** 








BEQ.S 


(92 


; begin 


2F3CI 


2250 








MOVE. L 


FWIND0W(A0),A1 




2F3EI 


12AE 


0005 






MOVE. B 


5(A6),(A1) 


; fwindoujT[0]: =ch; 


2F42I 


4A68 


0038 






TST.W 


FSOFTBF(AO) 


; if fsoftbuf then 


2F46I 


67** 








BEQ.S 


®1 




2F48I 


2F08 








MOVE.L 


AO, -(A7) 


; fput(f) 


2F4AI 


6100 


HI*** 






BSR 


FPUT 




2F4EI 


60** 








BRA.S 


FWRTCHX 


; else 


2F46* 


08 














2F50I 


3028 


OOOC 




(§>1 


MOVE. W 


FUNIT(AO),DO 




PAGE 
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MONITOR 


FILE: TEXTIO. 


TEXT 






2F54| 


2209 








MOVE. L 


Al.Dl 




2F56I 


7401 




i 




MOVE. L 


«1,D2 




2F58I 


4243 








MOVE. W 


»0,D3 




2F5AI 


6100 


F7D0 






BSR 


WRITELL 


; un itwr ite( fun it, fui indomt, 


2F5EI 


60** 








BRA.S 


FWRTCHX 


; end 


2F60I 








®2 


GETSYSC 


AO 


; e Ise 


2F3A* 


24 














2F60I 


2060 


FFFC 




« 


MOVE. L 


-4(A5),A0 




2F64I 


30BC 


OOOD 






MOVE. W 


#IN0T0PN, (AO ) 


; syscomT. iors It: = inotopen 


2F5E* 


08 














2F4E* 


18 














2F68I 


4E5E 






FWRTCHX 


UNLK 


A6 




2F6AI 


5C4F 








ADD.W 


»6,A7 




2F6CI 


4E75 








RTS 






2F6EI 


















2F6EI 












PROCEDURE FWRITELN(FILE: 


FIB) 


2F6EI 


















2F6EI 












stack: 






2F6EI 


















2F6EI 














8 Return a 


ddress 


2F6EI 














4 File adc 


ress 


2F6EI 














Old A6 




2F6EI 


















2F6EI 








FWRITELN 






2F6EI 


4E56 


0000 






LINK 


A6,»0 




2F72I 


206E 


0004 








MOVE. L 


4(A6), AO 
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2F76 
2F78 
2F7C 
2F7EI 
2F82 
2F84 
2F86 
2F88 
2F88 
2F88 
2F88 
2F88 
2F88 
2F88 
2F88 
2F88 
2F88 
2F88 
2F88 
2F8C 
2F8C 
2F90 
2F92 
2F96 
2F9C 
2F9E 
2FA0 



2250 

12BC OOOD 

2F08 

6100 **>ti* 

4E5E 

584F 

4E75 



MOVE. L 


FWIND0W( 


AO) 


,A1 


MOVE. B 


»$D, (Al 
AO, -(A7 


) 




MOVE. L 


) 




BSR 


FPUT 






UNLK 


A6 






ADD. W 


#4,A7 






RTS 









f . fwindoutt[0]: =chr(eo 1 ) 
fput(f ) 



FUNCTION FREADCHR(FILE: FIB): CHAR 
stack: 



12 
8 
4 




Function result 
Return address 
File address 
Old A6 



4E56 0000 



206D FFFC 
4250 

206E 0004 
0C68 0001 0006 

2F08 

6100 **** 
2F9C* 06 
2FA4I 206E 0004 
PAGE - 117 MONITOR 



FREADCHR 

LINK 
GETSYSC 
« MOVE. L 
MOVE. M 
MOVE. L 
CMP.W 
BNE.S 
MOVE. L 
BSR 

®1 MOVE. L 
FILE: TEXTIO. TEXT 



A6,«0 
AO 

-4(A5),A0 
#INOERR, (AO) 
4(A6), AO 
«1,FSTATE(A0; 
01 

AO, -(A7) 
FGET 

4(A6), AO 



( long zero ) 



sijscomt. iors It: = inoerror 

with F do 

if fstatesfneedchar then fget(f 



2FA8 
2FAA 
2FAE 
2FB4 
2FB6I 
2FB8 
2FBA 
2FBC 
2FBEI 
2FBE 
2FBE 
2FBEI 
2FBEI 
2FBEI 
2FBE 
2FBE 
2FBE 
2FBEI 
2FBEI 
2FC2 
2FC6 
2FCA 
2FCC 
2FCEI 
2FD2 
2FCA 
2FD4 
2FD8 
2FDE 
2FE2 
2FE4 
2FE6 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8 
2FE8I 
2FE8 
2FEC 
2FF0 
PAGE 



2250 

1D51 OOOF 

317C 0001 0006 

4E5E 

4A9F 

205F 

4A5F 

4ED0 



MOVE. L FWINDOW(A0),Al 

MOVE.B (Al), 15(A6) 

MOVE. W »1, FSTATE( AO ) 

UNLK A6 

TST.L (A7)+ 

MOVE. L (A7)+,A0 

TST.W (A7)+ 

JMP (AO) 

PROCEDURE FREADLN( FILE: FIB 

stack: 

8 

4 




f readchr: =rwindout[0 ] 
Fstate: =f needchar 



Return address 
Fi le address 
Old A6 



FREADLN 



4E56 0000 

206E 0004 

4A28 0004 

66** 

2F08 

6100 **** 

60EE 

08 

206E 0004 

317C 0001 0006 

4228 0004 

4E5E 

584F 

4E75 



®1 



LINK A6,#0 

MOVE. L 4(A6),A0 

TST. B FEOLN(AO) 

BNE. S ®2 

MOVE.L AO, -(A7) 

BSR FGET 

BRA. S 01 

MOVE.L 4(A6),A0 

MOVE.W «1,FSTATE(A0) 

MOVE.B «0,FEOLN(AO) 

UNLK A6 

ADD.W «4,A7 
RTS 



while not f.eoln do fget(f) 



f . fstate: =fneedchar 
f . f eo In: =f a Ise 



PROCEDURE FGET 


FILE: FIB) 


stack 




8 


File Address 


4 


Return Address 





Old A6 


-2 


ch 


reg isters 




Dl 


noeof 


D2 


device 


03 


echo 


D4 


amount 


D5 


left inbuf 


D6 


u in inx 


D7 


lef toget 



4E56 FDBO 
206E 0008 
224F 
- 118 MONITOR 



FILE: 



SCANAHD LINK A6,#-FIBSIZE 

MOVE.L 8(A6),A0 

MOVE.L A7,A1 

TEXTIO. TEXT 



; with f do 



2FF2I 303C 0128 

2FF6I 2448 

2FF8I 2649 

2FFAI 36DA 

2FFCI 5340 

2FFEI 66FA 



(SO 



MOVE. N 
MOVE. L 
MOVE. L 
MOVE. M 
SUB. W 
BNE.S 



«FIBSIZE/2,D0 
AO, A2 



A1,A3 
(A2)*, 
»1,D0 
dO 



:a3)^ 



currentf ib: =f 
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30001 


3028 


0018 




MOVE. W 


FNXTBLK(AO),DO 




3004( 


0800 


0000 




BTST 


«0,D0 


; if odd(fnxtblk ) then 


30081 


67** 






BEQ.S 


91 




300AI 


5268 


0018 




ADD.W 


#1,FNXTBLK(A0) 


; fnxtblk: =fnxtfall< + l 


3008* 


04 












300EI 


317C 


0200 003C 


91 


MOVE. M 


#FBLKSIZ, FNXTBYT(AO ) 


; fnxtbyte: =fblksire 


30141 


48E7 


OOCO 




MOVEM. L 


AO/Al, -(A7) 




30181 


2F08 






MOVE. L 


A0,-(A7) 




301AI 


6100 


***Dl 




BSR 


FGET 




301EI 


4CDF 


0300 




MOVEM. L 


(A7)+, AO/Al 




30221 


4A28 


0005 




TST.B 


FEOF(AO) 


; if feof then 


30261 


67** 






BEQ.S 


93 




30281 


303C 


0128 




MOVE. U 


#FIBSIZE/2,D0 




302CI 


2448 






MOVE. L 


A0,A2 




302EI 


2649 






MOVE. L 


A1,A3 




30301 


34DB 




92 


MOVE. M 


(A3)*,(A2)+ 


; f: =currentf ib 


30321 


5340 






SUB.W 


«1,D0 




30341 


66FA 






BNE. S 


92 




30361 


117C 


0001 0005 




MOVE.B 


#1,FEOF(AO) 


; feof:=true 


303CI 


117C 


0001 0004 




MOVE. B 


#1,FE0LN(A0) 


; f eo In: =true 


30421 


5368 


003C 




SUB.W 


#1,FNXTBYT(A0) 


; fnxtbyt: =fnxtbyt-l 


3026* 


IE 












30461 


4E5E 




93 


UNLK 


A6 




30481 


205F 






MOVE. L 


(A7)+,A0 




304At 


S88F 






ADD.L 


#4,A7 




304CI 


4ED0 






JMP 


(AO) 




304EI 






J 








301C* 


0032 












2FD0* 


007E 












2FA2* 


OOAC 












304EI 


4E56 


FFFE 


FGET 


LINK 


A6,«-2 




30521 








GETSYSC 


AO 


; syscomt. iors It: = inoerror 


30521 


206D 


FFFC 


# 


MOVE. L 


-4(A5),A0 




30561 


4250 






MOVE.W 


•INOERR, (AO) 




30581 


206E 


0008 




MOVE. L 


8(A6),A0 


; with f do 


305CI 


4A28 


OOOA 




TST.B 


FISOPEN(AO) 


; if fisopen 


30601 


S700 


**)(i* 




BEQ 


FGETNOP 




30641 


4A68 


OOIA 




TST.W 


FREPCNT(AO) 


; if frepcnt>0 then 


30681 


6F** 






BLE.S 


91 




306AI 


5368 


OOIA 




SUB.M 


«1,FREPCNT(A0) 


; frepcnt: =frepcnt-l 


306EI 


6E00 


«««« 




BGT 


FGET2L 


; if frepcnt>0 then goto 2 


3068* 


08 












30721 


43E8 


OOIE 


91 


LEA 


FHEADER(AO), Al 
FSOFTBF(AO) 


; uiith f header do 


30761 


4A68 


0038 




TST.W 


; if fsoftbuf then 


307AI 


6700 


itokDiiK 




BEQ 


FGET2ND 




307EI 


3E28 


0008 




MOVE. W 


FRECSZ(A0),D7 


; lef toget: =f recsz 


30821 


4246 






MOVE. W 


«0,D6 


; wininx:=0 


30841 


3028 


0018 


92 


MOVE. W 


FNXTBLK(AO),DO 
FMAXBLK(AO),DO 


; repeat 


30881 


B068 


0016 




CMP.W 


; if fnxtblk>=fmaxblk then 


PAGE 


- 119 


MONITOR 


FILE: TEXTIO. 


TEXT 






308CI 


6D** 






BLT.S 


93 




308EI 


3028 


003C 




MOVE. W 


FNXTBYT(AO), DO 




30921 


D047 






AOD.W 


D7,D0 


; if fnxbyte+ lef toget > 


30941 


B068 


003A 




CMP.W 


FMAXBYT(A0),DO 


; fmaxbyte then goto 1 


30981 


6E00 


**** 




BGT 


FGETIL 


; else 


309CI 


3A29 


0016 




MOVE. W 


LSTBYTE(A1 ), D5 


; leftinbuf:= 


30A0I 


60** 






BRA. S 


94 


; d lastbyte-f nxtby te 


308C* 


14 












30A2I 


3A3C 


0200 


93 


MOVE. W 


#FBLKSIZ,DS 


; e Ise 


30A0* 


04 












30A6I 


9A68 


003C 


94 


SUB.W 


FNXTBYT(A0),D5 


; lef t inbuf : =fblks ize-fnxtbyte 


30AAI 


3807 






MOVE. W 


D7,D4 


; amount: = lef toget 


30ACI 


B845 






CMP.W 


D5,D4 


; if amount> lef t inbuf then 


30AEI 


6F** 






BLE.S 


95 




30B0I 


3805 






MOVE. W 


D5,04 


; amount: = lef t inbuf 


30AE* 


02 












30B2I 


4A44 




95 


TST.W 


D4 


; if amount > then 


30B4I 


6F** 






BLE.S 


97 




30B6I 


45E8 


0050 




LEA 


FBUFFER(A0),A2 
FNXTBYT(AO), A2 


; src: =fbuf fer[fnxtbyte] 


30BAI 


D4E8 


003C 




AOO.W 




30BEI 


2650 






MOVE. L 


FWINDOW(AO ), A3 




30C0I 


D6C6 






ADD.W 


D6,A3 


; dst: =f u indoujT[ui in inx ] 


30C2I 


3004 






MOVE. W 


D4,D0 




30C4I 


16DA 




96 


MOVE. B 


(A2)*,(A3) + 


; move lef t( src, dst, amount ) 


30C6I 


5340 






SUB.W 


»1,D0 




30C8I 


66FA 






BNE.S 


96 




30CAI 


D968 


003C 




ADD.W 


D4,FNXTBYT(A0) 


; fnxtbyte: =fnxtbyte+amount 


30CEI 


DC44 






AOD.W 


D4,D6 


; uiin inx: =win Inx + amount 


30D0I 


9E44 






SUB.W 


D4,D7 


; lef toget: = lef toget-amount 


30B4* 


IC 












30D2I 


4A47 




97 


TST.W 


D7 


; done: = lef toget = 


30D4I 


6700 


**** 




BEQ 


FGET3RD 


; if not done then 


30D8I 


4A68 


003E 




TST.W 


FBFCHNG(AO) 


; if fbufchngd then 


30DCI 


67** 






BEQ.S 


98 




30DEI 


4268 


003E 




MOVE. W 


«0,FBFCHNG(AO) 
»1,FM0DIFD(A0) 


; fbufchngd: =fa Ise 


30E2I 


317C 


0001 OOIC 




MOVE. W 


; fmod if ied: =truo 


30E8I 


48E7 


OFCO 




MOVEM. L 


D4-D7/A0-A1, -(A7) 




30ECI 


6100 


**** 




BSR 


LDPARMS 




30F0I 


5343 






SUB.W 


»1,D3 




30F2I 


6100 


F638 




BSR 


WRITEIT 


; unituir ite( funit, fbuf fer, 


30F6I 












; fblksiZB, df irstblk + fnxtblk-1 ) 


30F6I 


4CDF 


03F0 




MOVEM. L 


(A7)+,D4-D7/A0-A1 




30FA( 


6600 


*«** 




BNE 


FGETIL 


; if iorsltoO then goto 1 


30DC* 


20 
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30FEI 


48E7 


OFCO 




(S8 


MOVEM. L 


D4-D7/A0-A1, -(A7) 






31021 


6100 


**** 






BSR 


LDPARMS 








31061 


3C3C 


0001 






MOVE. N 


«INBIT,D6 








310AI 


3F00 








MOVE. U 


DO, -(A7) 








310CI 


SlOO 


E84E 






BSR 


GETUNIT 




un i tread( f un i t, fbuffer, 




31101 


4E90 








JSR 


fA0| 
(A7)+,D4-D7/A0 




fblkslze, df irstblk+fnxtblk 


) 


31121 


4CDF 


03F0 






MOVEM. L 


-Al 






31161 


6600 


**** 






BNE 


FGETIL 




if iorsltoO then goto 1 




311AI 


5268 


0018 






ADD. W 


«1,FNXTBLK(A0) 
«0,FNXTBYT{AO) 




fnxtblk: =fnxtblk*l 




311EI 


4268 


003C 






MOVE, ki 




fnxtbyte: =0 




31221 


SOOO 


FF60 






BRA 


02 




until done (loop exit near 07} 




307C* 


OOAA 
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MONITOR 


FILE: TEXTIO. 


TEXT 










31261 


0C68 


0001 


OOOC 


FGET2N0 


CMP.W 


«1,FUNIT(A0) 




else 




312CI 


57C3 








SEQ 


D3 




echo:=funit = 1 




312EI 


66** 








BNE. S 


01 




if echo then 




31301 


343C 


0002 






MOVE. M 


»2,D2 




dev ice: =2 




31341 


60** 








BRA. S 


02 








312E* 


06 


















31361 


3428 


OOOC 




91 


MOVE. M 


FUNIT(A0),D2 




dev ice: =fun it 




3134* 


04 


















313AI 


323C 


0001 




02 


MOVE. W 


«1,D1 




noeof : =true 




313EI 


3D7C 


0020 


FFFE 




MOVE.W 


«$0020, -2(A6) 




ch:=' • 




31441 


4240 








MOVE. W 


#0,00 




i:=0 




31461 


B068 


0008 




03 


CMP.W 


FRECSZ(AO), DO 




uihile (i<frecsize] and noeof do 




314AI 


6C00 


«««« 






BGE 


FGET3RD 








314EI 


4A41 








TST. W 


Dl 








31501 


6700 


<ii*#» 






BEQ 


FGET3RD 








31541 


48E7 


FFCO 






MOVEM. L 


D0-D7/A0-A1,-(A7) 






31581 


3F02 








MOVE. M 


D2, -(A7) 








315AI 


43EE 


FFFE 






LEA 


-2(A6),A1 








315EI 


2209 








MOVE. L 


Al.Dl 








31601 


7401 








MOVE. L 


«1,D2 








31621 


4243 








MOVE. Vi 


«0,D3 








31641 


3C3C 


0001 






MOVE. W 


«INBIT,D6 








31681 


6100 


E7F2 






BSR 


GETUNIT 




unitread(device,ch, 1 ) 




316CI 


4E90 








JSR 


(AO) 
(A7)*,D0-D7/A0- 








316EI 


4CDF 


03FF 






MOVEM. L 


-Al 






31721 


6600 


WWDCIK 






BNE 


FGETIL 




if iorsltoO then goto 1 




31761 


4A03 








TST.B 


D3 








31781 


67** 








BEQ.S 


06 




if echo then 




317AI 


0C2E 


0000 


FFFE 




CMP.B 


«13,-2(A6) 




if ch=chr(13) or 




31801 


67** 








BEQ.S 


04 








31821 


0C2E 


0020 


FFFE 




CMP.B 


«*20, -2(A6) 




ch>=' ' then 




31881 


6D** 








BLT. S 


96 








3180* 


08 


















318AI 


48E7 


FFCO 




94 


MOVEM. L 


D0-D7/A0-A1,-(A7) 






318EI 


3028 


OOOC 






MOVE. M 


FUNIT(AO),DO 
-2(A6),A1 








31921 


43EE 


FFFE 






LEA 








31961 


2209 








MOVE. L 


A1,D1 








31981 


7401 








MOVE. L 


«1,D2 








319AI 


4243 








MOVE. Vi 


»0,D3 








319C| 


6100 


F58E 






BSR 


WRITEIT 




un ituir itB(funit, ch, 1 ) 




31A0I 


4CDF 


03FF 






MOVEM. L 


{A7)+,D0-D7/A0- 


-Al 






3188* 


lA 


















3178* 


2A 


















31A4| 


C18B 






196 


EXG 


DO, A3 








31A6I 










GETSYSC 


A2 




if ch=syscom t. eof then 




31A6I 


246D 


FFFC 




« 


MOVE. L 


-4(A5 ),A2 
EOF(A2),D0 








31AAI 


102A 


OOIF 






MOVE. B 








31AEI 


B06E 


FFFE 






CMP.W 


-2(A6),D0 








31B2I 


C18B 








EXG 


DO, A3 








31B4I 


66** 








BNE. S 


08 








31B6I 


0C68 


0001 


OOOC 




CMP.W 


«1,FUNIT(A0) 




if funit=l then 




31BCI 


66** 








BNE.S 


07 








31BEI 


426E 


FFFE 






MOVE. W 


«0, -2(A6) 




ch:=chr(0) 




31BC* 


04 
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FILE: TEXTIO. 


TEXT 










31C2I 


323C 


0001 




®7 


MOVE. W 


»1,D1 




noeof: =f a Ise 




31B4* 


10 


















31C6I 


2470 


0000 




®8 


MOVE. L 


FWIND0W(A0,D0), 
-2(A6), (a2) 


A2 


fuiindowT[ i ]: =ch 




31CAI 


14AE 


FFFE 






MOVE. B 








31CEI 


5240 








ADD.W 


«1,D0 




i: = i + l 




31D0I 


6000 


FF74 






BRA 


03 








3152* 


0082 


















314C* 


0088 


















30D6* 


OOFE 


















31D4I 


0C68 


0001 


0008 


FGET3RD 


CMP.W 


»1,FRECSZ(A0) 




if frees ize = 1 then 




31DAI 


6600 


***>« 






BNE 


FGET2L 








31DEI 


4228 


0004 






MOVE. B 


«0,FEOLN(A0 ) 




f eo In: =f a Ise 




31E2I 


317C 


0002 


0006 




MOVE. W 


«2,FSTATE(A0) 




fstate: =fgotchar 




31E8I 


2450 








MOVE. L 


FWIND0W(A0 ), A2 








31EAI 


0C12 


OOOD 






CMP.B 


»$D, {A2 ) 




if fu(indowT[0 ]=chr(eo 1 ) then 




31EEI 


66** 








BNE.S 


01 








31F0I 


14BC 


0020 






MOVE. B 


«$20, (A2) 




fujindou)T[0 ]: =' ' 




31F4I 


117C 


0001 


0004 




MOVE. B 


«1,FE0LN(A0) 




f eo in: =true 




31FAI 


6000 


**** 






BRA 


FGET2L 








31EE* 


OE 


















31FEI 


0C12 


0010 




01 


CMP.B 


»$10, (A2) 




if fu)indou)T[0]=chr(dle ) and 




32021 


66** 








BNE.S 


03 








32041 


0C68 


0002 


OOOC 




CMP.W 


«2,FUNIT(A0 ) 




funit > 2 then 




320AI 


6F** 








BLE. S 


03 









28 Sap 82 



TPRrMONll.TEXT 



Page 074 



320CI 


2F08 






MOVE. L 


AO, -(A7) 




320EI 


6100 FE3E 






BSR 


FGET 


; '■get(f) 


32121 


206E 0008 






MOVE. L 


8(A6),A0 




32161 


2450 






MOVE. L 


FWINDOW(A0),A2 


; amount: =ord( fwindoijT[0] )-32 


32181 


1812 






MOVE. B 


(A2),D4 




321AI 


4884 






EXT. W 


D4 




321CI 


0444 0020 






SUB.W 


#$20, D4 




32201 


6F** 






BLE.S 


92 


; if amount > and 


3222) 


0C44 007F 






CMP. W 


#127,04 




32261 


6E** 






BGT. S 


92 


; amount <= 127 then 


32281 


14BC 0020 






MOVE.B 


#$20, (A2) 


; fuiindouir[0]: =' ' 


322CI 


3144 OOIA 






MOVE. M 


D4,FREPCNT(A0) 


; frepcnt: =amount 


32301 


6000 **** 






BRA 


FGET2L 




3226* 


OC 












3220* 


12 












32341 


2F08 




92 


MOVE. L 


AO, -(A7) 




32361 


6100 FE16 






BSR 


FGET 


; fget(f) 


320A* 


2E 












3202* 


36 












323AI 


206E 0008 




®3 


MOVE. L 


8(A6), AO 




323EI 


2450 






MOVE. L 


FWIND0W(A0),A2 




32401 


4A12 






TST.B 


(A2) 


; if fu)indoujT[0]=chr(0 ) then 


32421 


6600 **** 






6NE 


FGET2L 




32461 


4A68 0038 






TST.W 


FSOFTBF(AO) 


; if fsoftbuf and 


324AI 


67** 






BEQ. S 


94 




324CI 


43E8 OOIE 






LEA 


FHEADER(A0),A1 




32501 


0C69 0003 


0004 




CMP.W 


#TEXTFILE,FKIND(A1 ) 


; fheader. dfk ind=textf i le then 


32561 


66** 






BNE.S 


94 




32581 


2F08 






MOVE. L 


AO, -(A7) 




325AI 


6100 FD8C 






BSR 


SCANAHD 


, scanahead(f ) 


32SEI 


6000 **x<* 






BRA 


FGET2L 


; else 


3256* 


DA 
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FILE: TEXTIO. 


TEXT 






324A* 


16 












32621 


14BC 0020 




S4 


MOVE. B 


#$20, (A2) 


; fu)indouT[0]: =' ' 


32661 


6000 «*** 






BRA 


FGETIL 




326AI 






FGETNOP GETSYSC 


AO 


else 


3062* 


0208 












326AI 


206D FFFC 




» 


MOVE. L 


-4(A5),A0 




326EI 


30BC OOOD 






MOVE. W 


«INOTOPN, (AO) 


syscomt. iors 1 1: = inotopen 


3268* 


OOOA 












3174* 


OOFE 












3118* 


015A 












30FC* 


0176 












309A* 


01D8 












32721 


206E 0008 




FGETIL 


MOVE. L 


8(A6),A0 




32761 


H7C 0001 


0005 




MOVE.B 


«1,FE0F(A0) 


feof : =true 


327CI 


117C 0001 


0004 




MOVE. B 


#l,FEOLN(A0) 


feo In: =true 


3260* 


0022 












3244* 


003E 












3232* 


0050 












31FC* 


0086 












31DC* 


00A6 












3070* 


0212 












32821 


4E5E 




FGET2L 


UNLK 


A6 




32841 


205F 






MOVE.L 


(A7)+,A0 




32861 


4A9F 






TST.L 


(A7)+ 




32881 


4ED0 






JMP 


(AO) 




328AI 






•f. 








328AI 










PROCEDURE FPUT(FILE:FIB) 




328AI 
















328A( 










stack 






328AI 
















328AI 












8 File Address 




328AI 












4 Return Address 




328AI 












Old A6 




328AI 
















328AI 










reg isters 




328AI 
















328AI 












04 amount 




328AI 












D5 leftinbuf 




328AI 












06 uiininx 




328AI 












07 leftoput 




328A( 
















328AI 


4E56 0000 




FPUT 


LINK 


A6,»0 




328EI 








GETSYSC 


AO ; 


syscomt. iors It: = inoerror 


328EI 


206D FFFC 




tt 


MOVE. L 


-4(A5),A0 




32921 


4250 






MOVE. N 


WINOERR, (AO) 




32941 


206E 0008 






MOVE. L 


8(A6),A0 ; 


with f do 


32981 


4A28 OOOA 






TST.B 


FISOPEN(AO) ; 


if fisopen 


329CI 


6700 **«* 






BEQ 


FPUTNOP 




32A0I 


4A68 0038 






TST.W 


FSOFTBF(AO) ; 


if fsoftbuf then 


32A4| 


6700 **** 






BEQ 


913 




32A8I 


43E8 OOIE 






LEA 


FHEADER(A0),A1 ; 


uiith fheader do 


32ACI 


3E28 0008 






MOVE. U 


FRECSZ(A0),D7 ; 


leftoput: =frecsz 


32B0I 


4246 






MOVE. W 


#0,06 ; 


win inx: =0 


32B2I 


3028 0018 




®1 


MOVE.W 


FNXTBLK(AO),DO ; 


repeat 
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FILE: TEXTIO. 


TEXT 






32B6I 


D051 






ADD.W 


FSTBLK(A1 ),D0 




32B8I 


B069 0002 






CMP.W 


LSTBLK(A1 ), DO ; 


if df irstblk*fnxtblk=dlastblk then 


32BCI 


66** 






BNE. S 


93 




32BEI 


3028 003C 






MOVE. W 


FNXTBYT(AO), DO 





28 Sep 82 



TPRiMONll.TEXT 



32C2 


DO 47 






ADD. W 


D7, DO 


; if f nxby to+ lef toput > 


' 


32C4| 


13069 


0016 




CMP.W 


LSTBYTE(A1 ), DO 


; dlastbyte then 




32C8I 


6F** 






BLE. S 


92 






32CAI 


48E7 


7FC0 




MOVEM. L 


D1-D7/A0-A1, -(A7) 






32CEI 


42A7 






MOVE. L 


#0, -(A7) 






32D0I 


2F08 






MOVE. L 


AO, -(A7) 






32D2I 


6100 


F96C 




BSR 


CANTSTR 


; if cantstretch(f ) then 




32D6I 


30 IF 






MOVE. W 


(A7)+,D0 






32D8I 


4CDF 


03FE 




MOVEM. L 


(A7)+,D1-D7/A0-A1 






32DCI 


67** 






BEQ.S 


93 






32DEI 








GETSYSC 


AO 


; iors It: = inoroom; goto 1 




32DEI 


206D 


FFFC 


» 


MOVE. L 


-4(A5),A0 






32E2I 


30BC 


0008 




MOVE. W 


ttlNOROOM, (AO) 






32E6I 


6000 


**** 




BRA 


FPUTIL 


; else 




32EAI 












J leftinbuf: = 




32EAI 












; f b Iks ize-f nxtby te 




32EAI 












; e Ise 




32C8 


* 20 














32EAI 


3A29 


0016 


92 


MOVE. W 


LSTBYTE(A1 ), D5 


i leftinbuf:= 




32EEI 


60** 






BRA. S 


94 


; d lastbyte-f nxtbyte 




32DC 


* 12 














32BC 


* 32 














32F0I 


3A3C 


0200 


®3 


MOVE. M 


»FBLKSIZ,D5 


; e Ise 




32EE 


* 04 














32F4I 


9A68 


003C 


94 


SUB.W 


FNXTBYT(A0),D5 


; leftinbuf: sfblkslze-fnxtbyte 




32F8I 


3807 






MOVE. H 


D7,D4 


; amount: = lef toput 




32FAI 


B845 






CMP.W 


D5,D4 


; if amount>lef t inbuf then 




32FCI 


6F** 






BLE. S 


95 






32FEI 


3805 






MOVE. M 


D5,D4 


; amount: = lef t inbuf 




32FC 


* 02 














33001 


4A44 




85 


TST.W 


D4 


; if amount > then 




33021 


6F** 






BLE. S 


97 






33041 


3i7C 


0001 003E 




MOVE. Vi 


»1,FBFCHNG(A0) 


; fbuf chngd: =true 




330AI 


47E8 


0050 




LEA 


FBUFFER(A0),A3 


; dst: =fbuf fer[fnxtbyt«] 




330EI 


D6E8 


003C 




ADD. M 


FNXTBYT(A0),A3 






33121 


2450 






MOVE. L 


FWINDOW(AO), A2 






33141 


D4C6 






ADD.W 


D6,A2 


; src: =fujindouiT[uiininx ] 




33161 


3004 






MOVE. M 


D4, DO 






33181 


16DA 




96 


MOVE. B 


(A2)*,(A3)* 


; move lef t(src, dst, amount ) 




331AI 


5340 






SUB.W 


«1,D0 






331CI 


66FA 






BNE.S 


96 






331EI 


D968 


003C 




ADD.W 


D4,FNXTBYT(A0) 


; fnxtbyte: =f nxtby te+amount 




33221 


DC44 






ADD.W 


D4,D6 


; uiininx: =uin inx + amount 




33241 


9E44 






SUB.W 


D4,D7 


; lef toput: = lef toput-amount 




3302 


* 22 














33261 


4A47 




97 


TST.W 


07 


; done: = lef toput = 




33281 


6700 


«««« 




BEQ 


914 


; if not done then 




332CI 


4A68 


003E 




TST.W 


FBFCHNG(AO) 


; if fbufchngd then 




33301 


67** 






BEQ.S 


98 






3332 


4268 


003E 




MOVE. W 


#0,FBFCHNG(AO) 


; fbuf chngd: =f a Ise 




33361 


317C 


0001 OOIC 




MOVE. W 


«1,FM0DIFD{A0) 


; f mod if ied: =true 




PAGE 
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MONITOR 


FILE: TEXTIO. 


TEXT 








333CI 


48E7 


OFCO 




MOVEM. L 


D4-D7/A0-A1,-(A7) 






3340 


6100 


«««»< 




BSR 


LDPARMS 






33441 


5343 






SUB.W 


»1,D3 






3346 


6100 


F3E4 




BSR 


WRITEIT 


; un itwr ite(f un it, fbuf fer. 




334A 












; fblksize.df irstblk + fnxtbIk-1 ) 




334A 


4CDF 


03F0 




MOVEM. L 


(A7)+,D4-D7/A0-A1 






334EI 


6600 


He*** 




BNE 


FPUTIL 


; if iorsltoO then goto 1 




3330 


* 20 














3352 


3028 


0018 


98 


MOVE. W 


FNXTBLK(AO),DO 


; if f nxtb lk<f maxb Ik then 




33561 


B068 


0016 




CMP.W 


FMAXBLK(AO ),D0 






335A 


6C** 






BGE. S 


99 






335C 


48E7 


OFCO 




MOVEM. L 


D4-D7/A0-A1, -(A7) 






3360 


6100 


«>f()tt>t< 




BSR 


LDPARMS 






3364 


3C3C 


0001 




MOVE. W 


»INBIT, D6 






3368 


3F00 






MOVE. W 


DO, -(A7) 






336A 


6100 


E5F0 




BSR 


GETUNIT 


; un itread( fun it, fbuf f er, 




336E 


4E90 






JSR 


(AO) 


; fblksiza, df irstblk + fnxtblk ) 




3370 


4CDF 


03F0 




MOVEM. L 


|'A7)+,D4-D7/A0-A1 






3374 


6600 


**** 




BNE 


FPUTIL 


; if iorsltoO then goto 1 




3378 


60** 






BRA. S 


911 


; else 




335A 


* IE 














337A 


45E8 


0050 


99 


LEA 


FBUFFER(A0),A2 


; f illchar(fbuffer, fblksize.O ) 




337E 


303C 


0200 




MOVE. W 


•FBLKSIZ, DO 






3382 


421A 




910 


CLR.B 


(A2)+ 






3384 


5340 






SUB.W 


»1,D0 






3386 


66FA 






BNE.S 


910 






3378 


* OE 














3388 


5268 


0018 


911 


ADD.W 


<fl,FNXTBLK(AO ) 
»0,FNXTBYT(AO) 


; fnxtblk:=fnxtblk+l 




338C 


4268 


003C 




MOVE. W 


; fnxtbyte: =0 




3390 


6000 


FF20 




BRA 


91 


; until done (loop exit near 97} 




332A 


* 006A 














3394 


0C68 


0001 0008 


914 


CMP.W 


»1,FRECSZ(A0) 


; if frecsize=l then 




339A 


66** 






BNE.S 


912 






339C 


2450 






MOVE. L 


FWINDOW(AO), A2 






339E 


0C12 


OOOD 




CMP.B 


»$D, (A2) 


; if fujindourt[0]=chr(eol ) then 




33A2 


66** 






BNE.S 


912 






33A4 


0C69 


0003 0004 




CMP.W 


»TEXTFILE,FKIND(A1 ) 


; if dfk ind=textf i le then 




33AA 


3028 


003C 




MOVE. W 


FNXTBYT(A0),D0 






33AE 


0C40 


0181 




CMP.W 


«FBLKSIZ-127, DO 


; if fnxtbyte>=fblks ize-127 and 




33B2 


SD** 






BLT.S 


912 






33B4 


3028 


0018 




MOVE. W 


FNXTBLK(AO),DO 






33B8 


0800 


0000 




BTST 


»0,D0 


; not odd(fnxtblk) then 


















, 
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33BCI 


66** 








BNE. S 


912 








33BEI 


317C 


OlFF 


003C 




MOVE. H 


#FBLKSIZ-1, FNXTBYT(AO ) 


; fnxtbyte: =fblksize-l 




33C4I 


4212 








MOVE. B 


«0,(A2) 




; fuiindouiT[0]: =chr(0 ) 




33C6I 


2F08 








MOVE. L 


AO, -(A7) 






33C8I 


6100 


FECO 






BSR 


FPUT 




; fput(f) 




33BC* 


OE 
















33B2* 


18 


















33A2* 


28 


















339A* 


30 


















33CCI 


6000 


DcitoXlk 




912 


BRA 


FPUT2L 




; else 




32A6* 


012A 


















33D0I 


48E7 


OFCO 




(il3 


MOVEM. L 


D4-D7/A0-Al,-( 


A7) 






33D4I 


3028 


OOOC 






MOVE. M 


FUNIT(AO), DO 








PAGE 


- 125 


MONITOR 


FILE: TEXTIO. 


TEXT 










33D8I 


2210 








MOVE. L 


FWIND0W(A0),D1 








33DAI 


7401 








MOVE. L 


«1,D2 








33DCI 


4243 








MOVE.W 


»0,D3 








33DEI 


6100 


F34C 






BSR 


WRITEIT 




; unitwrite(funit, fuiindouiT, 1 ) 




33E2I 


4CDF 


03F0 






MOVEM. L 


(A7) + ,D4-D7/A0 


-Al 


\ » ' / 




33E6I 


6600 


*•** 






BNE 


FPUTIL 




; if iorsltoO then goto 1 




33EAI 


6000 


*>|intH< 






BRA 


FPUT2L 








33EEI 








FPUTNOP PUTSYSC 


AO 




; else 




329E* 


0150 


















33EEI 


2B48 


FFFC 




» 


MOVE. L 


A0,-4(A5) 
WINOTOPN, (AO ) 








33F2I 


30BC 


OOOD 






MOVE. M 




; syscomt. iors It: = inotopen 




33E8* 


OOOE 


















3376* 


0080 


















3350* 


00A6 


















32E8* 


OlOE 


















33F6I 


206E 


0008 




FPUTIL 


MOVE. L 


8(A6), AO 








33FAI 


117C 


0001 


0005 




MOVE. B 


#1,FEOF(AO) 




; feof : =true 




34001 


117C 


0001 


0004 




MOVE. B 


#1,FE0LN(A0) 




; feoln:=true 




33EC* 


OOIA 


















33CE* 


0038 


















34061 


6000 


FE7A 




FPUT2L 


BRA 


FGET2L 








340AI 






















340AI 












LDPARMS 


-- Load fun it, 


fbuffer, 


fblocksize and df irstb Ik+f nxtb Ik 




340AI 






















3362* 


00A8 


















3342* 


00C8 


















340AI 


3028 


OOOC 




LDPARMS 


MOVE.W 


FUN1T(A0).D0 








340EI 


4868 


0050 






PEA 


FBUFFER(AO) 








34121 


221F 








MOVE. L 


(A7)+,D1 








34141 


243C 


0000 


0200 




MOVE. L 


«FBLKSIZ,D2 








341AI 


3611 








MOVE. M 


FSTBLK(A1 ), D3 








341CI 


0668 


0018 






ADD.M 


FNXTBLK(A0),D3 








34201 


4E75 








RTS 










34221 






















34221 












PROCEDURE FSEEK (VAR F: 


FIB; RECNUM: INTEGER) 




34221 






















34221 












stack 










34221 






















34221 














10 File Address 






34221 














8 Record 


Number 






34221 














4 Return 


Address 






34221 














Old A6 








34221 






















34221 


4E56 


0000 




FSEEK 


LINK 


A6,«0 








34261 










GETSYSC 


AO 




; syscomt. iors It: = inoerror 




34261 


206D 


FFFC 




# 


MOVE. L 


-4(A5),A0 








342AI 


4250 








MOVE.W 


«INOERR, (AO ) 








342CI 


206E 


OOOA 






MOVE. L 


10(A6), AO 




; with F do 




34301 


4A28 


OOOA 






TST.B 


FISOPEN(AO) 




; if not Fisopen then 




34341 


66** 








BNE. S 


®1 








34361 










GETSYSC 


AO 








34361 


206D 


FFFC 




tt 


MOVE. L 


-4(A5), AO 








343AI 


30BC 


OOOD 






MOVE. W 


tflNOTOPN, (AO) 




; syscomt. iors It: = inotopen 




343EI 


6000 


i|i«>KD< 






BRA 


FSEEKl 




; else 




3434* 


OC 


















PAGE 


- 126 


MONITOR 


FILE: TEXTIO. 


TEXT 










34421 


43E8 


OOIE 




(31 


LEA 


FHEADER(AO ), Al 




; with fheader do 




34461 


302E 


0008 






MOVE. W 


8(A6),D0 




; if (recnum < ) or 




344AI 


6B00 


**** 






BMI 


FSEEKl 








344EI 


4A68 


0038 






TST.W 


FSOFTBF(AO) 




; (not fsoftbuf ) or 




34521 


6700 


*«** 






BEG 


FSEEKl 








34561 


0C29 


0003 


0004 




CMP.B 


tfTEXTFILE.FKINC 


(Al) 


; ((fkind=textf ile) and 




345CI 


66** 








BNE. S 


®2 








345EI 


0C68 


0001 


0008 




CMP. W 


#1,FRECSZ(A0) 




; ( frees ize = l ) ) then 




34641 


6700 


*>«** 






BEQ 


FSEEKl 




; goto 1 




345C* 


OA 


















34681 


C1E8 


0008 




®2 


MULS 


FRECSZ(AO),DO 




; block: =recnum*frecs ize diw fblksiz 


♦ 1 


346CI 


81FC 


0200 






DIVS 


»FBLKSIZ,DO 




; byte: =recnum*frecs ize mod fblksiz 




34701 


3200 








MOVE. W 


D0,D1 








34721 


5241 








AOO.W 


»1,D1 




; 01 is now block 




34741 


4840 








SWAP 


DO 




; DO is now byte 




34761 


4 A 40 








TST.W 


DO 








34781 


66** 








BNE. S 


03 




; if byte = then 




347AI 


303C 


0200 






MOVE. W 


»FBLKSIZ,DO 




; byte: =fb Iks ize 




347EI 


5341 








SUB. W 


«1,D1 




; block: =block-l 




3478* 


OS 


















34801 


3429 


0002 




a3 


MOVE. W 


LSTBLK(A1),D2 
FSTBLK(A1),D2 




; n: =dlastblk-df irstblk 




34841 


9451 








SUB.W 
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3486 
3488 
348A 
348C 
3490 
3492 
3488 
34941 
3496 
3492 
348A 
3498 
349C 
349EI 
34A2j 
34A41 
34A8! 
34AEI 
34B2 
34B6 
34B8 
34BCI 
34BCI 
34C0I 
34C4I 
34A2 
34C4| 
34C8I 
34CAI 
34CEI 
34D0I 
34D4| 
34D8I 
PAGE 



B242 

6E** 

66** 

3629 0016 

B043 

6D** 

OA 

3202 

3003 

04 

OC 

B268 0018 

67** 

4A68 003E 

67** 

4268 003E 

317C 0001 OOIC 

48E7 FFCO 

6100 FF56 

5343 

6100 F272 

4CDF 03FF 
6600 **** 

20 

B268 0016 
6E** 

0C40 0200 
67** 

48E7 FFCO 
6100 FF34 
3C3C 0001 
- 127 MONITOR 



04 



95 



CMP.W 


D2,D1 




BGT.S 


(94 




BNE.S 


(95 




MOVE. W 


LSTBYTE(A1 


),D3 


CMP.W 


D3,D0 




BLT.S 


S)5 




MOVE. W 


D2,D1 




MOVE. M 


D3,D0 




CMP.W 


FNXTBLK(AO 


),D1 


BEQ. S 


®9 




TST. W 


FBFCHNG(AO 


) 


BEQ.S 


®8 




MOVE. W 


«0, FBFCHNG( 


AO) 


MOVE. W 


«1,FM0DIFD( 


AO) 



MOVEM.L D0-D7/A0-A1,-(A7) 
BSR LDPARMS 
SUB. W «1,D3 
BSR WRITEIT 

MOVEM.L (A7)+,D0-D7/A0-A1 
BNE FSEEKl 



08 CMP.W FMAXBLK(A0),D1 

BGT. S (S9 

CMP.W «FBLKSIZ,DO 

BEQ. S 09 

MOVEM.L D0-D7/A0-A1,-(A7) 

BSR LDPARMS 

MOVE.W «INBIT,D6 
FILE: TEXTIO. TEXT 



If (b lock > n ) or 
((block = n ) or 
(byte >= dlastbyte)) then 

b lock : = n 

byte : = dlastbyte 

if block <> fnxtblk then 

if fbufchngd then 

fbufchngd: =false 
fmod if ied: =true 



un ituir ite(fun it, fbuffer, 

fblksize, df irstb Ik+f nxtb lk-1 

if lorsltoO then goto 1 



if (block <= fmaxblk) and 
(byte <> fblksize) then 



34DCI 

34DEI 

34E2I 

34E4I 

34E8I 

34CE* 

34C8* 

349C* 

34ECI 

34F0I 

34F4I 

34F6I 

34FA1 

35001 

34F4* 

35021 

35041 

35081 

350CI 

350EI 

350C* 

3502* 

3500* 

35121 

35161 

351AI 

351EI 

35221 

35241 

3522* 

352AI 

352EI 

34EA* 

3402* 

3466* 

3454* 

344C* 

3440* 

35321 

35341 

3536) 

35381 

353AI 

353AI 

353AI 

353AI 

353AI 

353A1 

353AI 

353AI 

353AI 

353AI 

353AI 

353AI 

353AI 

PAGE 



3F00 

6100 

4E90 

4CDF 

6600 

IC 

22 

4E 

3628 

B668 

6F** 

3143 

3168 

60** 

OC 

66** 

3628 

B668 

6F** 

3143 

04 

OE 

10 

4228 

4228 

4268 

4A68 

67** 

317C 

06 

3141 

3140 

0048 

0070 

OOCC 

OODE 

00E6 

00F2 

4E5E 

205F 

5C4F 

4ED0 



E47C 
03FF 



0018 
0016 



0016 
003C 003A 



003C 
003A 



003A 



0005 
0004 
OOIA 
0006 

0001 0006 

0018 
003C 



99 



(910 



(Sll 



012 



MOVE.W DO, -(A7) 

BSR GETUNIT 

JSR (AO) 

MOVEM.L (A7)*,D0-D7/A0-A1 

BNE FSEEKl 



MOVE. W FNXTBLK ( AO ), D3 ; 

CMP.W FMAXBLK(AO), 03 

BLE. S 010 

MOVE.W D3, FMAXBLK (AO) ; 

MOVE.W FNXTBYT(AO),FMAXBYT(AO) ; 

BRA. S Oil ; 

BNE.S (911 ; 

MOVE.W FNXTBYT(A0),D3 

CMP.W FMAXBYT(AO), D3 ; 

BLE. S Oil 

MOVE. W D3 , FMAXBYT ( AO ) ; 



MOVE. B 
MOVE. B 
MOVE. W 
TST.W 
BEQ.S 
MOVE. W 



«0,FEOF(AO) 

«0,FEOLN(AO) 

#0,FREPCNT(AO 

FSTATE(AO) 

012 

«1,FSTATE(A0) 



MOVE.W D1,FNXTBLK(A0 
MOVE.W DO,FNXTBYT(AO 



FSEEKl UNLK A6 

MOVE.L (A7) + ,A0 

ADD. W »6,A7 

JMP (AO) 



. INCLUDE MONLOAD. TEXT 
Filename monload 



un itread(funlt, fbuffer, 

fb Iks ize.df irstb lk + fnxtblk 

if iorsltoO then goto 1 



if fnxtb lk>fm8xblk then 

fmaxblk : = fnxtblk 
fmaxbyte : = f nxtbyte 
else 

if (fnxtblk = fmaxblk) and 

(f nxtbyte > fmaxbyte) then 

fmaxbyte : = fnxtbyte 



feof := false 

feo In : = false 

frepcnt : = 

if fstate <> fjandu then 

f state: =fneedchar 

fnxtblk .- = block 
fnxtbyte : = byte 



$$LOADIT - Memory resident segment loader 
Upon entry: 
- 128 MONITW FILE: MONLOAD. TEXT 



ST. L - procedure-to-be-ca 1 led' s return address 
ST. L - extra JSR's return address 



3S3AI 
353AI 



ST.L - pointer to ZFIRST 

D7. W - parameter to main program 
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353AI 






; 








353AI 














353AI 






ZZLOADIT: 






353AI 














353AI 
















353AI 








Store 


the adc 


ress of REMOVEl i 


nto $FIRST-20 so that global GOTO 


353AI 










can un '. 


oad segments as needed. | 


353AI 
















353AI 














353AI 


43FA 


**** 




LEA 


REMOVEl, A 1 


Address of segment un loader 


353EI 


245F 






MOVE. L 


(A7)+,A2 


get ®ZFIRST and save in A2 


35401 


2F0D 






MOVE. L 


A5,-(A7) 




35421 


6100 


«**>x 




BSR 


SETUPA5 




35461 








ADDRSAT 


AO 




35461 


41ED 


FF7C 


« 


LEA 


-132(A5), AO 




354AI 


48E0 


0F18 




MOVEM. L 


A3-A4/D4-D7, -(AO 


) 


354EI 








RUNUTST 




running user for the debugger ? 


354EI 


4A2D 


FFA8 


# 


TST.B 


-88(A5) 




35521 


67** 






BEQ. S 


91 




35541 








PUTUFST 


A2 




35541 


2B4A 


FF90 


» 


MOVE. L 


A2,-112(A5 ) 




35581 


60** 






BRA.S 


®2 




355AI 






01 


PUTZFST 


A2 




3552* 


06 












355AI 


2B4A 


FFFO 


« 


MOVE. L 


A2, -16(A5) 




3558* 


04 












355EI 


2A5F 




92 


MOVE. L 


(A7)+,A5 




35601 


204A 






MOVE. L 


A2,A0 




35621 


90FC 


0014 




SUB. W 


»20, AO 


compute ZFIRST-20 in AO 


35661 


2089 






MOVE. L 


Al, (AO) 


--> $FIRST-20 


35681 














35681 
















35681 








Find 


which se 


gment needs to be 


setup and possibly loaded. 


35681 
















35681 














35681 


201F 






MOVE. L 


(SP)+,DO 


(DO) = Fake call location * 6 


356AI 


224A 






MOVE. L 


A2, Al 




356CI 


5949 






SUB.W 


«4, Al 


compute ZFIRST-4 in Al 


3S6EI 


2251 






MOVE. L 


(Al), Al 




35701 


3219 






MOVE. W 


(Al )+,Dl 


Dl = Number of segments 


35721 


B091 




TRYNEXT 


:CMP.L 


(Alj.DO 


Was the last segment the one? 


35741 


6F** 






BLE. S 


LASTSEG 


Yes. Go get it. 


35761 


D2FC 


0020 




ADDA. M 


#32, Al 


No. Bump Al to next segment table. 


357AI 


5341 






SUBQ. W 


«1,D1 


Was that the last segment? 


357CI 


6AF4 






BPL. S 


TRYNEXT 


No. Try the next one. 


357EI 


4280 






MOVE. L 


«0,D0 


Yes. Issue error «0. 


35801 


6000 


DtXdKlH 




BRA 


ERROR 




3574* 


OE 












35841 


92FC 


0020 


LASTSEG 


: SUB A. W 


«32,A1 


Back-up Al to first of segment table. 


35881 














35881 
















35881 








Found 


the correct segment tabl 


B. Patch the return address. 


35881 
















PAGE 


- 129 


MONITOR 


FILE: MONLOAD 


.TEXT 






35881 








(Al) = 


Segment Table 




35881 










(DO) = 


Extra call location + 6 1 


35881 
















35881 














35881 


235F 


0010 




MOVE. L 


(SP) + ,16(A1) 


Save the old return address. 


358CI 


487A 


*«** 




PEA 


ZZUNLOAD 


Replace it with $$UNL0AD. 


35901 


4AA9 


0014 




TST.L 


20(A1) 


Is this segment already in memory? 


35941 


6600 


**** 




BNE 


PATCHIT 


Yes. Don't need to load it. 


35981 












No. Need to load it. 


35981 














35981 
















35981 








The required 


segment is not in 


memory. It must be read from 


35981 








disk. 


But f i 


rst find where it 


will go. 


35981 
















35981 










(Al) = 


Segment Table 




35981 










(DO) = 


Extra call location + 6 | 


35981 
















35981 














35981 


48E7 


8140 




MOVEM. L 


D0/D7/A1,-(SP) 


Save the necessary registers. 


359CI 


2078 


OlOC 




MOVE.L 


SIOCAO 


Fetch upper memory limit. 


35A0I 


2808 






MOVE. L 


A0,D4 


Save a copy. 


35A2I 


91E9 


0008 




SUBA.L 


8(A1 ),A0 


Subtract size of segments code. 


35A6I 


5988 






SUBQ. L 


»4, AO 


Leave room for pointer. 


35A8I 


B1F8 


0108 




CMPA.L 


$108, AO 


Will it fit? 


35ACI 


6E** 






BGT.S 


IT. FITS 


Yes. 


35AEI 


7001 






MOVE. L 


»1,D0 


No. Error t ime. 


35B0I 


6000 


**** 




BRA 


ERROR 




35AC* 


06 












35B4I 


21C8 


OlOC 


IT. FITS 


: MOVE.L 


A0,$10C 


Update current top of memory. 


35B8i 


20C4 






MOVE.L 


D4, (A0) + 


Push pointer to old top of memory. 


35BAI 


2348 


OOOC 




MOVE.L 


AO, 12(A1) 


Store segment address in segment table. 


35BEI 














35BEI 
















35BEI 








Now read the 


stuff into memory 


from disk. 


35BEI 
















35BEI 










(AO) = 


Where it wi 1 1 go. 




35BEI 










(Al) = 


This segment tabl 


3. 


35BEI 
















35BEI 








Register usea 


ge: 




35BEI 
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■" 
















N 


35BEI 






DO 


- 02 = Scratch. 








35BEI 






D3 


= L 


ocal. Must 


be preserved by service routines. 




35BEI 






D4 


~ Address of segment 


table. 




35BEI 






D5 


= Next byte tc 


read. 


(INBYTE) 




35BEI 






D6 


= N 


umber of v« 


lid by 


tes in buffer. (MAXBYTES) 




35BEI 






07 


= First block 


in buffer. (INBLOCK) 




35BEI 






AO 


- Al = Scratch. 








35BEI 






A2 


= Ptr to ZFIRST 






35BEI 






A3 


= L 


ocal. Must 


be preserved by service routines. 




35BEI 






A4 


= Pointer to t 


uf fer. 






35BEI 


















35BEI 


















35BEI 


2809 






MOVE. L 


A1,D4 




Save address of segment table in D4. 




35C0I 


284A 






MOVE. L 


A2, A4 








35C2I 


98FC 


0010 




SUB. N 


#16, A4 




compute ZFIRST-16 in A4 




PAGE 


- 130 


MONITOR FILE: M0^4L0AD 


TEXT 










35C6I 


2854 






MOVE. L 


(A4), A4 




(A4) = buffer 




35C8I 


2A29 


0004 




MOVE. L 


4(A1 ),D5 




Compute 




35CCI 


2E05 






MOVE. L 


D5,D7 








35CEI 


0285 


0000 OlFF 




ANDI.L 


«$1FF,D5 




starting byte, and 




35D4| 


E08F 






LSR.L 


#8,D7 








35D6I 


E28F 






LSR.L 


#1,D7 




starting block. 




35D8I 


6100 


**** 




BSR 


FILLBUF 




Go fetch the first buffer full. 




35DCI 


















35DCI 


















35DCI 






This 


is the main fetch 


oop. 


Slocks are fetched one at a time 




35DCI 






and selected 


blocks are 


processed. Only code blocks (85), 




35DCI 






relocation bl 


ocks (86), 


and en 


d blocks (81) are examined. The 




35DCI 






pest 


are skipped. 








35DCI 


















35DCI 


















35DCI 




1 


AMNLOOP: 










35DCI 


















35DCI 


6100 


*««»< 




BSR 


NEXT. 1 




DO : = next byte. 




35E0I 


3600 






MOVE. W 


D0,D3 




Save it in D3. 




35E2I 


6100 


**** 




BSR 


NEXT. 3 




DO : = next 3 bytes. 




35E6I 


0443 


0080 




SUBI.M 


»$80, D3 




Is block kind < 80? 




35EAI 


6D** 






BLT.S 


BADBLCK 




Yes. Issue error. 




35ECI 


0C43 


0006 




CMP. W 


#6,03 




No. Is it > 86? 




35F0I 


6E** 






BGT.S 


BADBLCK 




Yes. Issue error. 




35F2I 


E34B 






LSL.W 


«1,D3 




No. Do a CASE 




35F4I 


41FA 


*«ii<« 




LEA 


C. TABLE, AC 








35F8I 


3630 


3000 




MOVE. W 


0(A0,D3.W 


),D3 






35FCI 


4EF0 


3000 




JMP 


0(A0,D3.W 


) 






36001 


















35F0* 


OE 
















35EA* 


14 
















36001 


7002 




3ADBLCK 


MOVE. L 


«2,D0 




Bad Block. 




36021 


6000 


**m* 




BRA 


ERROR 




Issue error «2. 




36061 


















35F6* 


0010 
















36061 


DutclKW 


( 


:. TABLE 


.WORD 


BL0CK80-C. 


TABLE 






36081 


>tl«>|li|l 






.WORD 


BL0CK81-C. 


TABLE 






360AI 


DOkUt* 






.WORD 


BL0CK82-C. 


TABLE 






360CI 


WDotof 






.WORD 


BL0CK83-C. 


TABLE 






360EI 


IK1K>K»| 






.WORD 


BL0CK84-C. 


TABLE 






36101 


DtDoKHl 






.WORD 


BL0CK85-C. 


TABLE 






36121 


>t<Dc«l|l 






.WORD 


BL0CK86-C. 


TABLE 






36141 


















3606* 


OOOE 
















36141 




I 


3LQCK80 








Module Name Block 




360A* 


OOOE 
















36141 






3L0CK82 








Entry Point Block 




360C* 


OOOE 
















36141 




1 


3L0CK83 








External Reference Block 




360E* 


OOOE 
















36141 






3L0CK84 








Starting Address Block 




36141 


















36141 


5980 






SUBQ. L 


»4, DO 




Skip blocksize - 4 bytes. 




36161 


DA80 






ADD.L 


D0,D5 








36181 


BC85 






CMP. L 


D5,D6 




Is the next byte in the buffer? 




PAGE 


- 131 


MONITOR FILE: 


>10NL0AD 


TEXT 










361AI 


6EC0 






BGT.S 


MAINLOOP 




Yes. Go process next block. 




361CI 


2C05 






MOVE.L 


D5,D6 




No. Compute 




361EI 


0285 


0000 OlFF 




ANDI.L 


»$1FF,D5 




luhich byte, and 




36241 


E08E 






LSR.L 


»8,D6 








36261 


E28E 






LSR.L 


«1,D6 








36281 


DE86 






ADD.L 


D6,D7 




which block its in. 




362AI 


6100 


**** 




BSR 


FILLBUF 




Go fill the buffer. 




362EI 


60AC 






BRA.S 


MAINLOOP 




Go do next block. 




36301 


















36301 


















36301 






85 - 


Code block. 








36301 


















36301 


















3610* 


002A 
















36301 






3L0CK85 












36301 


2600 






MOVE. L 


D0,D3 




Save block size in D3. 




36321 


5183 






SUBQ. L 


«8,D3 




D3 = bytes of code (BYTESLEFT). 




36341 


2S44 






MOVE. L 


D4, A3 




(A3) = Segment Table. 




36361 


2668 


oooc 




MOVE. L 


12(A3),A3 




A3 = base address of segment. 




353AI 


6100 


**** 




BSR 


NEXT. 4 




Fetch relative address for code. 




. 
















, 
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363EI 


D7C0 




ADDA.L 


DO, A3 


Relocate it to actual address. 


36401 


4A83 


WHILESS-.TST.L 


D3 


While BYTESLEFT > DO 


36421 


6F** 




BLE. S 


ENDWH85 




36441 


2406 




MOVE. L 


D6,D2 


; BYTESINBUFFER := 


36461 


9485 




SUB.L 


D5,D2 


; MAXBYTES - INBYTE; 


36481 


B682 




CMP.L 


D2,D3 


; IF BYTESINBUFFER < BYTESLEFT 


364AI 


6F** 




BLE.S 


ALL. 85 


; THEN 


364CI 


9682 




SUB.L 


D2,D3 


; BYTESLEFT -: = BYTESINBUFFER 


364EI 


41F4 


5800 


LEA 


0(A4,D5.L), AO 




36521 


E28A 




LSR. L 


«1,D2 




Move BYTESINBUFFER/2 words 


36541 


36D8 


LO. 85: MOVE. W 


(A0)+,(A3)+ 




from buffer 


36561 


5382 




SUBQ. L 


«1,D2 




to final location. 


36581 


6EFA 




BGT. S 


L0.85 


i 


36SAI 


E08E 




LSR.L 


»8,D6 




See hou many blocks 


365CI 


E28E 




LSR.L 


#1,D6 




mere in buffer 


365EI 


DE86 




ADD. L 


D6,D7 




and add to INBLOCK. 


36601 


4285 




CLR. L 


D5 




INBYTE := 0; 


36621 


6100 


**** 


BSR 


FILLBUF 




Fi 11 the buffer. 


36661 


60D8 




BRA.S 


WHILE85 




364A* 


IC 










36681 


41F4 


5800 ALL. 85: LEA 


0(A4,D5.L), AO 




ELSE 


366CI 


DA83 




ADD. L 


D3,D5 




Update INBYTE. 


366EI 


E28B 




LSR.L 


«1,D3 




Move BYTESLEFT/2 words 


36701 


3608 


LI. 85: MOVE.W 


(A0)+,(A3)* 




from buffer 


36721 


5383 




SUBQ. L 


#1,D3 




to final loction. 


36741 


6EFA 




BGT. S 


LI. 85 




3642* 


32 










36761 


6000 


FF64 ENDWH85:BRA 


MAINLOOP 


Go do next block. 


367AI 












367AI 












367AI 






86 - Relocation Block. 




367AI 












367AI 






Must come aft 


er the code that 


it relocates. 


367AI 












367AI 












3612* 


0074 










PAGE 
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MONITOR FILE: 1 


HONLOAD. TEXT 






367AI 




1 


3L0CK86: 






367AI 


2600 




MOVE.L 


D0,D3 


NRELOCS := 


367CI 


5983 




SUBQ. L 


«4,D3 


(BLOCKS I ZE - 4) 


367EI 


E48B 




LSR.L 


»2,D3 


DIV 4; 


36801 


2644 




MOVE. L 


D4, A3 


Get base address 


36821 


266B 


oooc 


MOVE. L 


12(A3),A3 


of this segment. 


36861 


6100 


XlltClllIfC 


rOP.86: BSR 


NEXT. 4 


Get next address to relocate. 


368AI 


220B 




MOVE. L 


A3,D1 


Put base into a D register. 


368CI 


D3B3 


0800 


ADD. L 


D1,0(A3,D0.L) 


Relocate proper place. 


36901 


5383 




SUBQ. L 


»1,D3 


More to relocate? 


36921 


6EF2 




BGT.S 


TOP. 86 


Yes. 


36941 


6000 


FF46 


BRA 


MAINLOOP 


No. Go do next block. 


36981 












36981 












36981 






81 - End Bloc 


k. 




36981 












36981 






Fnished. 






36981 












36981 












3608* 


0092 










36981 




1 


3L0CK81: 






36981 












36981 


4CDF 


0281 


MOVEM. L 


{SP) + ,D0/D7/A1 


Restore registers. 


369CI 












369CI 












369CI 






This segment 


is in memory. Ch 


ange the JSR's in the descriptors 


369CI 






into JMP's. 






369CI 












369CI 






(Al) = 


Segment Table 




369CI 






(DO) = 


Extra call location + 6 | 


369CI 












369CI 












3596* 


0106 










359CI 


52A9 


0014 


=ATCHIT: ADDQ.L 


«1,20(A1) 


Bump segment reference counter. 


36A0I 


2051 




MOVE. L 


(A1),A0 


(AO) = first descriptor. 


36A2I 


2669 


0020 


MOVE.L 


32(A1 ),A3 


(A3) = 1st descriptor in next segment. 


36A6I 


2229 


OOOC 


MOVE. L 


12(A1),D1 


Dl = first byte of segment in memory. 


36AAI 


2418 


I 


= .LOOP: MOVE.L 


(A0)+,D2 


D2 = segment relative address of procedure. 


36ACI 


30FC 


4EF9 


MOVE. W 


»$4EF9, (AO)* 


Patch in JMP xxx. L opcode. 


36B0I 


D481 




ADD.L 


D1,D2 


Compute loaded address 


3682i 


20C2 




MOVE. L 


D2, (A0)+ 


and drop it into JMP instrcut ion. 


36B4I 


B7C8 




CMPA.L 


AO, A3 


Any more descriptors to patch? 


36B6I 


6EF2 




BGT.S 


P. LOOP 


Yes. Go do ' em. 


36B8I 


204A 




MOVE. L 


A2, AO 


No. Link this segment ... 


3SBA\ 


5148 




SUB. W 


»8, AO 


compute ZFIRST-8 in AO 


36BCI 


2350 


0018 


MOVE. L 


(AO ),24(A1 ) 


. . . into act ive . . . 


3ecoi 


2089 




MOVE. L 


Al, (AG) 


. . . segment list. 


36C2I 












3SC2I 






Nou crauil douin the table oF so 


Ft break points 


36C2I 












36C2I 






Each entry contains: segmment 


number 2 bytes 


3GC2I 








offset i 


1 segment 2 bytes 


36C2I 








instruct 


ion save cell 2 bytes 


36C2I 
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36C2I 








• (*^) = 


Segment Table 




36C2I 








i (DO) = 


Extra call location + 6 


36C2I 














36C2I 












36C2I 


2449 




MOVE. L 


A1,A2 


, Compute segment number = {Al-A4)/32+l 


36C4I 


95CC 




SUB.L 


A4,A2 




36C6I 


220A 




MOVE. L 


A2,D1 




36C8I 


EA81 




ASR.L 


«S,D1 




36CAI 


5281 




ADD. L 


#1,D1 




36CCI 


2669 


OOOC 


MOVE. L 


12(A1), A3 


Get actual address of segment in memortj 


36D0I 
36D4I 
36D4| 


2478 


012C 


MOVE. L 


$12C,A2 


Get start of break point table 


341A 




PATCHBP MOVE.W 


(A2)*,D2 


End of table ? 


36D6I 


6B** 




BMI.S 


G02USER 




36D8I 


B242 




CMP.W 


D2,D1 


Same segment ? 


36DAI 


67** 




BEQ.S 


SAMESEG 




36DCI 


4A9A 




TST. L 


(A2)* 


No, then skip seg offset and save cell 


36DEI 


60F4 




BRA.S 


PATCHBP 




36DA* 


04 










36E0I 


341A 




SAMESEG MOVE.M 


(A2)+,D2 


Yes, get offset in segment 


36E21 


34F3 


2000 


MOVE. N 


0(A3,D2), (A2) + 


Save the instruction 


36E6I 


37BC 


4E4C 2000 


MOVE. N 


»$4E4C,0(A3,D2) 


Store TRAP «$C into code 


36ECI 


60E6 




BRA.S 


PATCHBP 


Go do next entry 


36EEI 














36EEI 








Jump to user 


code 




36EEI 














36EEI 








(DO) = 


Extra call location + 6 


36EEI 














36EEI 












36D6* 


16 










36EEI 


2240 




G02USER MOVE.L 


DO.Al 


Get extra return address. 


36F0I 


2F0D 




MOVE. L 


AS, -(A7) 


Save users A5 


36F2I 


6100 


**** 


"BSR 


SETUPA5 




36F6I 






ADDRSAB 


AO 




36F6I 


41ED 


FF64 


« LEA 


.-156(A5),A0 




38FAI 


4CD8 


18F0 


MOVEM. L 


(A0)+,A3-A4/D4-D7 


36FEI 






DBUGTST 




Check debug f lag 


36FEI 


4A2D 


FFA9 


# TST, B 


-87(A5) 




3702t 


67** 




BEQ.S 


IBI 




37041 






DBUGCLR 


; 


Clear debug flag (so we don't stop again) 


37041 


422D 


FFA9 


« MOVE. B 


«0,-87(A5) 




37081 


2A5F 




MOVE. L 


(A7)*,A5 J 


Restore users A5 


370AI 


2F29 


FFFC 


MOVE. L 


-4(A1),-(A7) J 


Push return address 


370EI 


6000 


**«* 


BRA 


FAKERED j 


Go fake red button 


3702* 


0£ 










37121 


2A5F 




®1 MOVE. L 


(A7)+,A5 ; 


Restore users AS 


37141 


4EE3 


FFFA 


JMP 


-6(A1) ; 


Go to user ! 


37181 














37181 








FillBuf - Fill the buffer. This routine reads as much as 


37181 










possible into the code buffer from an already 


37181 










open UCSD file. 




37181 














37181 








Parameters: D7. L = Next block to read 


37181 








A4. L = Pointer to buffer 


37181 
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MONITOR 


FILE: MONLOAD. TEXT 






37181 






; Returns: D6.L = Number of bytes read 


37181 














37181 








All other reg 


isters are preserved. 


37181 














37181 












3664* 


00B4 










362C* 


OOEC 










35DA* 


013E 










37181 






FILLBUF: 






37181 


48E7 


FDFE 


MOVEM. L 


D0-D5A)7/A0-A6, -( 


SP) 


371CI 


6100 


**** 


BSR 


SETUPA5 




37201 


42A7 




CLR.L 


-(SP) 


; Room for function result 


37221 






RUNUTST 




; Running user ? 


37221 


4A2D 


FFA8 


« TST.B 


-88(A5) 




37261 


67** 




BEQ.S 


(91 




37281 






GETUFIB 


AO 


; Yes, Get userfib ptr 


37281 


206D 


FFA4 


« MOVE. L 


-92(A5),A0 




372CI 


60** 




BRA.S 


®2 




372EI 






®1 GETCFIB 


AO 


; No, Get codefib ptr 


3726* 


06 










372EI 


206D 


FFDC 


» MOVE. L 


-36(A5 ), AO 




372C* 


04 










37321 


2F08 




02 MOVE. L 


AO, -(A7) 




F i le address 


37341 


2F0C 




MOVE. L 


A4, -(SP) 




Buffer address 


37361 


3F3C 


0004 


MOVE. W 


#INBUFSZ/FBLKSIZ, 


-(SP) 


tt Blocks to read 


373AI 


3F07 




MOVE. W 


07, -(SP) 




Block to read 


373CI 


3F3C 


0001 


MOVE. W 


»1,-(SP) 




Read: =true 


37401 


6100 


F6CE 


BSR 


BLKIO 




37441 


4286 




CLR.L 


D6 ; 


Fetch 


37461 


3C1F 




MOVE. W 


(A7)+,D6 ; 


«b locks read. 


37481 


4CDF 


7FBF 


MOVEM. L 


(SP)+,DO-D5/D7/A0 


-A6 


374CI 


E18E 




LSL.L 


#8,D6 


D6 = number of 


374EI 


E38E 




LSL.L 


«1,D6 ; 


bytes read. 


37501 


6E** 




BGT. S 


READ. OK ; 


Mas read ok? 


37521 


7003 




MOVE. L 


«3,D0 ; 


No. Error »3. 


37541 


6000 


KcXoKDi 


BRA 


ERROR 




3750* 


06 










37581 


4E75 




READ. OK: RTS 
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375AI 










375AI 












375AI 








; NextBuf - Fetch the next sequential buffer full. 


375AI 












375AI 








; Sets D6 = Num 


ber of bytes in buffer, and 


375AI 








; D7 = Current first block in buffer. 


375AI 








; D5 = Next byte to read to zero. 


375AI 












375AI 








; All other reg 


isters are preserved. 


375AI 












375AI 










375AI 






NEXTBUF: 




375AI 










375AI 


4285 




CLR.L 


D5 ; INBYTE : = 


375CI 


E08E 




LSR.L 


*8, D6 ; See houi many blocks 


375EI 


E28E 




LSR.L 


«1,D6 ; are in this buffer. 


37601 


DE86 




ADD.L 


D6,D7 ; Add it to INBLOCK. 
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37621 


61B4 




BSR 


FILLBUF ; Go fill the buffer. 


37641 


4E75 




RTS 




37661 










37661 












37661 








; Next_l - Read 


the next byte of code. 


37661 












37661 








; Returns: DO. L = the byte read 


37661 












37661 








Preserves all 


reg isters. 


37661 












37661 










35DE* 


0188 








37661 






NEXt. 1: 




37661 


BC85 




CMP. L 


D5,D6 ; Next byte in buffer? 


37681 


6E** 




BGT.S 


OK. 1 ; Yes. 


376AI 


61EE 




BSR 


NEXTBUF J No. Read some more from disk. 


3758* 


02 








376CI 


4280 




OK. 1: CLR.L 


DO ; Fetch the next byte 


376EI 


1034 


5800 


MOVE. B 


0(A4,D5.L),D0 ; from the buffer. 


37721 


5285 




ADDQ. L 


«1,D5 ; Update INBYTE. 


37741 


4E75 




RTS 




37761 










37761 












37761 








Next_3 - Read 


the next byte of code. 


37761 












37761 








Returns: DO.L = the value read 


37761 












37761 










35E4* 


0192 








37761 






NEXT. 3: 




37761 


61EE 




BSR 


NEXT. 1 


37781 


2200 




MOVE. L 


DO.Dl 


377AI 


E189 




LSL.L 


«8,D1 


377CI 


61E8 




BSR 


NEXT. 1 


377EI 


8280 




OR. L 


DO.Dl 


37801 


E189 




LSL.L 


«8,D1 


37821 


61E2 




BSR 


NEXT. 1 


37841 


8081 




OR.L 


Dl.DO 


37861 


4E75 




RTS 




37881 










37881 












37881 








Next_4 - Read 


the next byte of code. 


37881 












37881 








Returns: DO.L = the value read 


37881 












37881 










3688* 


0100 








363C* 


014C 








37881 






NEXT. 4: 




37881 


61EC 




BSR 


NEXT. 3 


378AI 


2200 




MOVE. L 


DO.Dl 


378CI 


E189 




LSL.L 


#8,D1 


378EI 


61D6 




BSR 


NEXT. 1 


37901 


8081 




OR.L 


Dl.DO 


37921 


4E75 




RTS 
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37941 












37941 








$$UNLOAD - Remove a segment from memory. This routine is returned to 


37941 










mhen the first (and only remaining) call to a procedure 


37941 










in a particular segment returns. If that segment has 


37941 










not been loaded by a specific Load Segment call (i.e. 


37941 










if the reference count = 1) then this segment is removed 


37941 










from memory. In any event, this segments descriptors 


37941 










are turned back into JSR $$LOADIT. L instructions and 


37941 










this segment in unlinked from the active segment list. 


37941 












37941 










358E* 


0206 








37941 






ZZUNLOAD: 




37941 










37941 


6100 


**** 


BSR 


REMOVE 1 


37981 


4ED0 




JMP 


(AO) 


379AI 










379AI 






' 
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379AI 
379At 
379AI 
379A| 
379AI 
37961 
353C* 
379AI 
379AI 
379CI 
379EI 
37A2| 
37A2| 
37A6I 
37A8I 
37A8I 
37ACI 
37AE| 
37A6'i 
37AEI 
37AC1 
37B2I 
37B4| 
37B6I 
37B8I 
37BAI 
37BCI 
37BEI 
37C2I 
37C4I 
37C8I 
37C21 
37CCI 
37CEI 
37D2I 
37D4I 
37D8I 
PAGE 



REMOVEl - Remove the top segment and place its return address in AO. 
This routine is called by the global GOTO routine as 
ue 1 1 as the normal un loader. 



0004 
025E 

200B 
2F0D 
6100 **** 

4A2D FFA8 
67** 

246D FF90 

60** 

06 

246D FFFO 
04 

2A5F 
264A 
20 4A 
5148 
2F08 
2050 

53A8 0014 
6E** 

2268 OOOC 
21E1 OlOC 
08 

245F 

24A8 0018 
2250 

2468 0020 
5889 
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MOVE. L 


A3, DO 


; save A3 


MOVE. L 


A5, -(A7) 




BSR 


SETUPA5 




RUNUTST 




; running 


TST.B 


-88(A5) 




BEQ. S 


91 





GETUFST A2 

MOVE. L -112(A5), A2 
BRA. S ®2 
GETZFST A2 

MOVE.L -16(A5),A2 



(92 



MOVE. L 
MOVE. L 
MOVE.L 
SUB.W 
MOVE. L 
MOVE. L 
SUBQ. L 
BGT.S 
MOVE. L 
MOVE. L 

'STILLINrMOVE. L 

MOVE. L 

MOVE. L 

MOVE. L 

UN. LOOP: ADDQ. L 

FILE: MONLOAD. TEXT 



(A7)+, A5 

A2,A3 

A2,A0 

»8,A0 

A0,-{A7) 

(AO), AO 

#1,20(A0) 

STILLIN 

12(A0),A1 

-(Al), $10C 

(A7)*,A2 
24(A0), (A2) 
(AO), Al 
32(A0), A2 
#4,A1 



running user for the debugger ? 



copy ZFIRST into A3 for later patch 

compute ZFIRST-8 in AO 

(AO) = descriptor of exited segment. 

Bump counter. Still active? 

Yes. Don't free memory. 

No. Fetch old top of memory ... 

. . . store it in current top. 

Update act ive . . . 
. . . segment 1 ist. 

Al ) = first descriptor 

A2 ) = 1st dscriptor in next segment. 
Skip relative offset field. 



37DAI 

37DEI 

37E0I 

37E2I 

37E4I 

37E8I 

37EAI 

37ECI 

37ECI 

37EEI 

37F5I 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

37FCI 

3756* 

3604* 

35B2* 

3582* 

37FCI 

38001 

38021 

38061 

380AI 

380EI 

38101 

38141 

38161 

381AI 

381EI 

381EI 

381EI 

381EI 

381EI 

381EI 

381EI 

381EI 

381EI 

381EI 

381EI 

381EI 

38201 

38221 

38261 

PAGE ■ 



32FC 4EB9 

22CB 

B3CA 

6DF4 

2068 0010 

2640 

4E75 

OOOE 

4C 6F 61 64 65 72 20 

45 72 72 6F 72 20 20 



MOVE. M 
MOVE. L 
CMPA.L 
BLT. S 
MOVE. L 
MOVE, L 
RTS 



#$4EB9, (Al y 
A3, (Al ) + 
A2,A1 
UN. LOOP 
16(A0), AO 
DO, A3 



Store JSR xxx.L opcode. 

Fill in absolute address field. 

More descriptors? 

Yes. Go do 'em. 

No. Load seg's return address. 

Restore A3 



LELPL . WORD 14 

LEPL .ASCII 'Loader Error 



ERROR - Fatal loader errors come here. 

error* is in DO 

#0 = Unknown segment. 

#1 = No room in memory. 

»2 = Bad block. 

#3 = Can't read code file. 

»4 = Jump Table Too Large. 



00A6 
01F8 
024A 
027A 
4E56 
2F00 
43FA 
343A 
6100 
201F 
43EE 
7402 
32BC 
6000 



FFFE 

FFEA 
FFE4 

>)c4i*>K 

FFFE 
0030 



ERROR 



5C8F 
60** 

48E7 8080 
41 FA FFF6 
138 MONITOR FILE: 



stack 



old A6 
errornumber 



LINK 




A6,»-2 


MOVE. 


L 


DO, -(A7) 


LEA 




LEPL, Al 


MOVE. 


W 


LELPL, D2 


BSR 




PRINT 


MOVE. 


L 


(A7)+,D0 


LEA 




-2(A6),A1 


MOVE. 


L 


#2,D2 


MOVE. 


\rl 


«$30,(A1 ) 


BRA 




PRNTERR 



allocate: errornumber 

address 
and length 



address 

and length 

initialize error number tc 



. INCLUDE SYMDBUG. TEXT 
FILENAME: SYMDBUG 

All the trap handlers for launch 

V31A ADD.L »6,A7 ; discard SR and PC 

BRA.S V31X 

V31 MOVEM. L DO/AO, -(A7 ) 

LEA V31A,A0 
SYMDBUG. TEXT 



; setup temporary NMI handler 
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382AI 


21C8 


007C 




MOVE. L 


AO, $7C 


; to wait for user to lift his finger 


3820* 


OC 












382EI 


46EF 


0008 


V31X 


MOVE 


8(A7), SR 


; allow another interrupt 


38321 


203C 


0001 0000 




MOVE. L 


#$10000, DO 


; delay about 1/4 a second 


38381 


5380 




91 


SUBQ. L 


«1,D0 




383AI 


66FC 






BNE.S 


91 




383CI 


41FA 


FFE4 




LEA 


V31,A0 


; fall thru to here if no NMI else goto V31A 


38401 


21C8 


007C 




MOVE. L 


AO, $7C 




38441 


41FA 


CFEO 




LEA 


HANDLER, AO 




38481 


BIEF 


OOOA 




CMP.L 


10(A7),A0 


; if handler didn't get to move A6 into $140 


384CI 


66** 






BNE. S 


92 




384EI 


21CE 


0140 




MOVE. L 


A6,$140 


; then do it now 


384C* 


04 












38521 


4CDF 


0101 


92 


MOVEM. L 


(A7)+,D0/A0 




38561 


3F3C 


OOIF 




MOVE. W 


#31, -(A7) 




385AI 


60** 






BRA. S 


SOFTBO 




385CI 














385CI 


3F3C 


0002 


V2 


MOVE. W 


«2, -(A7) 




38601 


60** 






BRA.S 


SOFTBO 




38621 


3F3C 


0003 


V3 


MOVE. W 


«3,-(A7) 




38661 


60** 






BRA.S 


SOFTBO 




38681 


3F3C 


0004 


V4 


MOVE. W 


#4, -(A7) 




386CI 


60** 






BRA.S 


SOFTBO 




386EI 


3F3C 


0005 


V5 


MOVE. W 


»5,-(A7) 




38721 


60** 






BRA.S 


SOFTBO 




38741 


3F3C 


0006 


V6 


MOVE. W 


«6, -(A7) 




38781 


60** 






BRA.S 


SOFTBO 




387AI 


3F3C 


0007 


V7 


MOVE. N 


#7, -(A7) 




387EI 


60** 






BRA.S 


SOFTBO 




38801 


3F3C 


0008 


V8 


MOVE. M 


#8, -(A7) 




38841 


60** 






BRA.S 


SOFTBO 




38861 


3F3C 


0009 


V9 


MOVE. W 


«9, -(A7) 




388AI 


60** 






BRA. S 


SOFTBO 




388CI 


3F3C 


OOOA 


VIO 


MOVE. M 


#10, -(A7) 




38901 


60*« 






BRA.S 


SOFTBO 




38921 


3F3C 


0006 


Vll 


MOVE. M 


«11,-(A7) 




38961 


60** 






BRA.S 


SOFTBO 




38981 














38981 


3F3C 


0018 


V24 


MOVE. W 


«24, -(A7) 




389CI 


60** 






BRA.S 


SOFTBO 




38gE| 














389EI 














389EI 






i Soft 


break po 


int trap handler 




389EI 














389EI 














389E( 


3F3C 


002C 


SOFTBPT 


MOVE. M 


#44, -(A7) 


; soft bpt exception is $B0 


389C* 


04 












3896* 


OA 












3890* 


10 












388A* 


16 












3884* 


IC 












387E* 


22 












3878* 


28 












3872* 


2E 












386C* 


34 












3866* 


3A 












PAGE 


- 139 


MONITOR 


FILE: SYMDBUG 


.TEXT 






3860* 


40 












385A* 


46 












38A2I 


48E7 


FFFE 


SOFTBO 


MOVEM. L 


D0-D7/A0-A6, -(A7 


) 


38A5I 


4286 






CLR.L 


D6 


; D6:=nil 


38A8I 














38A8I 








setup D4 luith exception 


index and 05 with 9user reg save area 


38A8I 














38A8I 


382F 


003C 




MOVE. W 


60(A7),D4 




38ACI 


6100 


«*** 




BSR 


SETUPA5 




38B0I 








GETUREG 


D5 


; 9user reg save area 


38B0I 


2A20 


FF98 


u 


MOVE. L 


-104(A5),D5 




38B4I 


0C44 


0003 




CMP.W 


»3,D4 




38B8I 


6F** 






BLE. S 


91 




38BAI 


206F 


0040 




MOVE. L 


64(A7),A0 


; get stacked pc into AO 


38BEI 


60** 






BRA.S 


92 




38B8* 


06 












38C0I 


41EF 


003E 


®1 


LEA 


62(A7),A0 




38C4I 








GETACCA 


D6 




38C4I 


2(;2D 


FF8C 


« 


MOVE. L 


-116(A5),D6 




38C8I 


2246 






MOVE. L 


06, Al 




38CAI 


22D8 






MOVE. L 


(A0)+, (Al )+ 




38CCI 


22D8 






MOVE.L 


(A0) + , (Al )+ 




38CEI 


4A58 






TST.W 


(A0)+ 


; same as MOVE.L 72(A7),A0 


38BE* 


10 












38D0I 


0C44 


002C 


92 


CMP.W 


»44,D4 




38D4I 


66** 






BNE.S 


GOODPC 




38D6I 


5588 






SUB.L 


«2, AO 


; adjust for TRAP instruction 


38D8I 


2F48 


0040 




MOVE. L 


A0,64(A7) 


; and update stacked pc 


38DCI 






GOODPC 


RUNUTST 




; running user for the debugger ? 


38D4* 


06 












38DCI 


4A2D 


FFA8 


It 


TST.B 


-88(A5) 




38E0I 


67** 






BEQ.S 


91 




38E2I 








GETUFST 


Al 




38E2I 


226D 


FF90 


ff 


MOVE. L 


-112(A5),A1 




38E6I 


60** 






BRA. S 


92 


-—----—.-——_----—-———__— .^—_—_—_^______.______^_^._________^ -J 
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38E8I 

38E0* 

38E8I 

38E6* 

38ECI 

38EEI 

38F2I 

38F6I 

38F8I 

38FAI 

38FCI 

39001 

39021 

39041 

39061 

39081 

390AI 

3906* 

390CI 

PAGE - 



06 

226D FFFO 
04 
5149 

6100 **** 
0C44 002C 
66** 
4A41 
6B** 

2478 012C 
341A 
6B** 
B242 
67** 
4A9A 
60F4 
04 

B05A 
140 MONITOR 



81 


GETZFST 


Al 




MOVE. L 


-16(A5),A1 


92 


SUB.W 


»8,A1 




BSR 


AOTOSO 




CMP.W 


#44, D4 




BNE. S 


SOFTXIT 




TST.W 


Dl 




BMI.S 


SOFTXIT 




MOVE. L 


$12C,A2 


FINDBP 


MOVE. M 


(A2)*,D2 




BMI.S 


SOFTXIT 




CMP.W 


D2,D1 




BEQ. S 


FNDSEGN 




TST. L 


(A2)* 




BRA.S 


FINDBP 



FNDSEGN CMP.W 
FILE: SYMDBUG. TEXT 



(A2 )+,D0 



; compute ZFIRST-8 in AO 



; bad seg# ? 

; Get start of break point table 

; End of table ? 

; Same segment ? 

; No, then skip seg offset and save cell 

; Same segment offset ? 



390EI 

39101 

39121 

390E* 

39141 

39161 

391AI 

391EI 

3902* 

38FA* 

38F6* 

391EI 

39221 

39241 

39241 

39281 

392CI 

392EI 

39301 

39321 

39341 

39361 

393A( 

393CI 

39401 

39421 

39441 

39461 

3922* 

39461 

39481 

394CI 

394EI 

394C* 

39501 

39521 

39561 

39581 

39581 

39581 

3944* 

3940* 

3958! 

395C| 

395CI 

395CI 

395CI 

395EI 

39601 

39641 

39641 

39681 

396CI 

39701 

39741 
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67** 

4A5A 

60EC 

04 

3092 

41FA 

21C8 

lA 
22 
26 
4A2D 

67** 

206D 
2268 
3304 
3301 
3300 
2305 
2306 
2149 
4A86 
4CDF 
67** 
504F 
60** 

22 

4A86 

4CDF 

67** 

504F 

02 

544F 

2F38 

4E75 



12 
16 
42B8 



2F08 
2F0D 
6100 

206D 
DOFC 
48E0 
215F 
215F 
141 



057C 



FFA8 



FF94 
003C 



003C 
7FFF 



7FFF 



0F7C 



057C 



BEQ. S FNDSEGO 

TST.W (A2)* 

BRA.S FINDBP 

FNDSEGO MOVE. W ( A2 ), ( AO ) 

LEA PUTBACK, AO 

MOVE. L AO, $57C 

SOFTXIT RUNUTST 



; No, then skip save cell 



; put saved uord back into code for user 

; ptr to put back code 

; Were we running the user for the sym debugger ? 



TST.B -88(A5) 

BEQ. S 91 

GETDREG AO 

MOVE. L -108(A5),A0 

MOVE.L 60(A0),A1 

MOVE.W D4, -(Al' 

MOVE.W D1,-(A1 

MOVE.W DO, -(Al 

MOVE.L D5, -(Al 

MOVE.L D6, -(Al 

MOVE.L A1,60(a6) 

TST. L D6 

MOVEM.L (A7)*,D0-D7/A0-A6 

DEQ. S RNNGUSR 

ADD.W »8,A7 

BRA. S RNNGUSR : 



Yes, push parameters for sym debuggers ERROR 

onto symbolic debuggers stack 

I ) except ion number 
[2^ segment number 

3J segment offset 

4 1 @user reg save area 
^5] Saccess address record 
now update stack pointer 



didn't delete except number (for later) 



92 



TST. L D6 

MOVEM.L (A7) + ,D0-D7/A0-A6 

BEQ. S 92 

ADD.W #8,A7 

ADD.W «2,A7 

MOVE.L $F7C, -(A7) ; No, then go to macsbug 

RTS 

Exception handling for the symbolic debugger 



RNNGUSR MOVE.L »0, $57C 

save the users registers 



FF98 
0040 
FFFF 
0034 
0020 
MONITOR 



MOVE.L A0,-(A7 
MOVE.L A5, -(A7' 
BSR SETUPA5 
GETUREG AO 
« MOVE.L -104(A5), AO 
ADD.W »64,A0 
MOVEM.L D0-D7/A0-A7,-(A0) 
MOVE.L (A7)+,52(A0) 
MOVE.L (A7)+,32(A0) 
FILE: SYMDBUG. TEXT 



save AO on tos 



point AO just above reg save area 
save Ds and As 
noui save AS 
noui save AO 



39781 
397AI 
397EI 
39821 
39841 
39881 
398CI 
39941 
39941 
39941 
39941 
39941 
39981 
399CI 
39A01 
39A01 



381F 

315F 0044 

215F 0040 

3F04 

2F38 0140 

4268 0046 

06A8 0000 OOOA 003C 



422D FFA8 
6100 **** 
6100 **** 



MOVE.W (A7) + ,D4 

MOVE.W (A7)+,68(A0 

MOVE.L (A7) + ,64(A0 

MOVE.W D4, -(A7) 

MOVE.L $140, -(A7) 

MOVE.W «0,70(A0) 

ADD.L #10,60(A0) 

suiitch to debugger 

RUNUCLR 

MOVE.B «0,-88(A5) 
BSR RSTRXCP 
BSR SWAPJT 



load debuggers registers and call symbolic debugger 



get except number out of the uiay 

save SR 

save PC 

push except number on tos for later 

also push users old A6 on tos too 

adjust saved A7 



runuser: =f a Ise 
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39A0I 
39A0I 
39A0I 
39A4I 
39A4I 
39A8I 
39ACI 
39B0I 
39B2I 
39B2I 
39B2I 
39B2I 
39B4I 
39B8I 
39B8I 
39BCI 
39C0I 
39C41 
39C4I 
39C8I 
39CCI 
39CCI 
39CCI 
39CCI 
39D0I 
39D4I 
39D4I 
390AI 
39DAI 
39DAI 
39DAI 
39DAI 
39DEI 
39E2I 
39E4I 
39E8I 
39E8I 
39E8I 
39E8I 
PAGE 



226D FFAO 

206D FF94 
DOFC 0030 
4CD8 FOOO 
4E91 



2F0D 
6100 **** 

206D FF94 
DOFC 0040 
48E0 OOOF 

206D FF94 
215F 0034 



6100 **** 
6100 **** 



1B7C 0001 FFA8 



206D FF98 
4CD8 OOFF 
4A98 
4CD8 FEOO 



21DF 0140 
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GETERRP Al 

MOVE.L -96(A5), Al 

GETDREG AG 

MOVE.L -108(A5),A0 

ADD.W #48, AO 

MOVEM.L (A0)*,A4-A7 

JSR (Al 

save the debuggers registers 

MOVE.L A5, -(A7) 

BSR SETUPA5 

GETDREG AO 

MOVE.L -108(A5),A0 

ADD. W #64, AO 

MOVEM.L A4-A7, -(AO) 

GETDREG AO 

MOVE.L -108(A5), AO 

MOVE.L (A7) + ,52(A0) 

switch back to user 

BSR SWAPJT 

BSR POKEXCP 

RUNUSET 

MOVE. B «1,-88(A5) 

load user registers 

GETUREG AO 

MOVE.L -104(A5), AO 
MOVEM.L (A0)+,D0-D7 
TST.L (A0)+ 
MOVEM.L (A0)+,A1-A7 



load Al with aERROR 



ca 1 1 it 



point AO just above reg save area 



noui save A5 



runuser: =true 



now is later ( ie time to look at the except number) 

; restore users old A6 (we ran debugger) 



MOVE.L (A7)+,$140 
FILE: SYMDBUG.TEXT 



39ECI 

39F0I 

39F2I 

39F2I 

39F2I 

39F2I 

39F4I 

39F6I 

39FCI 

39FEI 

39FEI 

39FEI 

39FEI 

3A00I 

3A00I 

3A02I 

3A041 

3A04I 

3A04I 

3A04I 

3A06I 

3A08I 

3A08I 

3A08I 

39F0* 

3A08I 

3A0AI 

3A0C( 

3A12I 

3A14J 

3A16I 

3A16I 

3A16I 

3A16I 

3A16( 

3A16I 

3A16I 

3A16I 

3A16I 

3A16I 

3A16I 

3918« 

3A16t 

3A1AI 

3A1CI 

3A22I 

3A28) 

3A2C( 

3A30I 

3A36I 

3A38I 

3A3AI 

3A3AI 

3A3AI 



0C5F 002C 
66** 



2F18 

3F18 

91FC 0000 0026 

2050 



2F08 



4E71 
4E71 



205F 
4E73 



16 

2F18 

3F18 

91FC 0000 0026 

2050 

4E73 



OOFE 

42B8 057C 

2F08 

21EF OOOE 0568 

21F8 0024 056C 

41FA **** 

21C8 0024 

006F 8000 OOOC 

205F 

4E75 



CMP.W «44, (A7)+ 

BNE. S N0T44 

yes, load user registers 

MOVE.L (A0)+,-(A7) 

MOVE.W (A0) + ,-(A7) 

SUB.L #70-32, AO 

MOVE.L (AO), AO 



call putback (like macsbug would) 
MOVE.L AO, -(A7) 



; do we need to putback the TRAP ? 



BSRPUTB NOP 
NOP 

; BSR 



PUTBACK 



MOVE.L (A7)+,A0 
RTE 

no, just load user registers 



N0T44 



L (A0) + ,-(A7) 
,W (A0)+,-(A7) 



MOVE. 

MOVE. 

SUB.L #70-32, AO 

MOVE.L (AO),AO 

RTE 



Enter here from Macsbug 

stack: 

long: PC 

word: SR 

long: AO saved by Macsbug 

long: Return address 

long: AO saved by this routine 



PUTBACK CLR.L $57C 

MOVE.L A0,-(A7) 

MOVE.L 14(A7),$568 

MOVE.L »24,$56C 

LEA PUTBAK2, AO 

MOVE.L A0,$24 

ORI.W #$8000,12(A7) 

MOVE.L (A7)+,A0 
RTS 

Temp trace handler 



J clear ptr to this routine 

; workl saves the pc 

; work2 saves the trace handler 

; setup new trace handler 

; turn on tracing 
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; stack: 
SYMDBUG. TEXT 



3A3AI 






3A3AI 






3A3AI 






3A3AI 






3A3AI 






3A2A* 


0010 




3A3AI 


2F08 




3A3CI 


2078 


0568 


3A40I 


30BC 


4E4C 


3A44I 


205F 




3A46I 


21F8 


056C 0024 


3A4CI 


4A78 


0550 


3A50I 


66** 




3A52I 


0257 


7FFF 


3A56I 


4E73 




3A50* 


06 




3A58I 


2F38 


0024 


3A5CI 


4E75 




3A5EI 






3A5EI 






3A5EI 






3ASEI 






3A5EI 






3A5EI 






3A5EI 






3A5EI 






3A5EI 






3A5EI 






38F0* 


016E 




3A5EI 


2251 




3A80I 


60** 




3A62I 


2269 


0018 


3A66I 


2209 




3A68I 


6E** 




3A6AI 


72FF 




3A6CI 


4280 




3A6EI 


4E75 




3A70I 






3A68* 


06 




3A60* 


OE 




3A70I 


2008 




3A72I 


90A9 


OOOC 


3A76I 


6BEA 




3A78I 


2229 


0008 


3A7CI 


B081 




3A7EI 


6CE2 




3A80I 






3A80I 






3A80I 






3A80I 


2209 




3A82I 


928C 




3A84I 


EA81 




3A86I 


5281 




3A88I 


4E75 




3A8AI 
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MONITOR 


3A8AI 






3A8AI 






3A8AI 






3A8AI 






3A8AI 






3A8AI 






3A8AI 






3A8AI 






3A8AI 






3A8AI 






3A8AI 






3A8AI 


4E56 


0000 


3A8EI 


208E 


0014 


3A92I 


4A6E 


0018 


3A96I 


67** 




3A98I 


6100 


»«>tlKl 


3A9CI 






3A9CI 


226D 


FF90 


3AA0I 


60** 




3AA2I 






3A96* 


OA 




3AA2I 


226D 


FFFO 


3AA0* 


04 




3AA6I 


5149 




3AA8I 


61B4 




3AAAI 


206E 


0010 


3AAEI 


3081 




3AB0I 


206E 


OOOC 


3AB4I 


3080 




3AB6I 


4A6E 


0018 


3ABAI 


67** 




3ABCI 


6100 


**** 


3ABA* 


04 




3AC0I 


4E5E 





long: PC 
word: SR 
long: AO saved by this routine 



PUTBAK2 MOVE. L A0,-(A7) 

MOVE. L $568, AO 

MOVE.W «$4E4C,(A0) 

MOVE.L (A7)+,A0 

MOVE.L $56C,$24 

TST.W $550 

BNE. S PUTBAK3 

ANDI.W #$7FFF, (A7) 
RTE 

PUTBAK3 MOVE.L $24, -(A7) 
RTS 



; put back the soTt brk pt 



; put back the trace handler 

; test macsbug trace flag 

; turn off tracing 

; return to user code 



; go to Macsbug to handle Trace 
AOTOSO -- CONVERTS AO TO SEGNUM AND OFFSET 
Enter with: 
Exit with: 



AO = address 

Al = address of the active seg list ptr 

01 3 segnum 

DO = offset 



using adjusted stacked pc find pointer to segment table entry 

; get pointer to first segment on the list 



AOTOSO MOVE.L (A1),A1 

BRA.S FINDLP 

NEXTSEG MOVE.L 24(A1), Al 

MOVE.L Al.Dl 

BGT. S FINDLP 

MOVE.L #-l,Dl 

CLR.L DO 
RTS 



FINDLP MOVE.L AO.DO 

SUB.L 12(A1), DO 

BMI.S NEXTSEG 

MOVE.L 8(A1), Dl 

CMP.L Dl.DO 

BGE. S NEXTSEG 



; get ptr to next segment table 
; TST.L Al 



compjte offset within segment 
get segment size 



enter with pointer to segment table entry in Al 

MOVE.L A1,D1 ; Compute segment number = (Al-A4)/32+l 

SUB.L A4,D1 

ASR. L #5,D1 

ADD.L «1,D1 

RTS 



FILE: SYMDBUG. TEXT 



PROCEDURE ADDR2S0( USER: INTEGER; ADDRESS: LONGI NT; VAR SEGNUM, OFFSET: INTEGER ) 
stack: 



24 

20 

16 

12 

8 

4 





flag indicating process (0=SYM DEBUG, 1=USER) 

address 

(Ssegnum 

Oof fset 

Return Address 

Old A5 

Old A6 



ADDR2S0 LINK A6,«0 

MOVE.L 20(A6),A0 

TST.W 24(A6) 

BEQ. S ®1 

BSR SWAPJT 

GETUFST Al 
» MOVE.L -112(A5), Al 

BRA. S ®2 

®1 GETZFST Al 



get address to convert 

running user for the debugger ? 



@2 



MOVE.L -16(A5),A1 

SUB. W #8,A1 

BSR AOTOSO 

MOVE.L 16(A6), AO 

MOVE.W D1,(A0) 

MOVE.L 12(A6),A0 

MOVE.W D0,(A0) 

TST.W 24{A6) 

BEQ. S 03 

BSR SWAPJT 



compute ZFIRST-8 in Al 

return segnum 

return offset 

runn ing user for the debugger ? 



03 



UNLK 



A6 
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3AC2I 


2A5F 










MOVE. L 


(A7)+,A5 
rA7)+,A0 




3AC4I 


205F 










MOVE. L 




3AC8I 


DEFC 


OOOE 








ADO. M 


#14, A7 




3ACAI 


4ED0 










JMP 


(AO) 




3ACCI 




















3ACCI 












PROCEDURE PMADDR2S0( USER: INTEGER; ADDRESS: LONGINT; VAR SEGNUM, OFFSET: INTEGER ^ 


3ACCI 




















3ACCI 












PMADDR2S0 converts address to segment 


and offset for the debugger process 


3ACCI 












uihile 


it is running in the users environment. Note the meaning of user 


3ACCI 












is reversed. 






3ACCI 




















3ACCI 














stack: 






3ACCI 
















24 Flag Indicating 


process (1=SYM DEBUG, 0=USER ) 


3ACCI 
















20 address 




3ACCI 
















16 Ssegnum 




3ACCI 
















12 Ooffset 




3ACCI 
















8 Return Address 




3ACCI 
















4 Old A5 




3ACCI 
















Old A6 




3ACCI 




















3ACCI 








PMADDR2S 
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MONITOR 


FILE: SYMDBUG 


.TEXT 






3ACC1 


4E56 


0000 








LINK 


A6,»0 




3AD0I 


206E 


0014 








MOVE. L 


20(A6),A0 
24(A6) 


; get address to convert 


3AD4I 


4A6E 


0018 








TST.W 


; running user for the debugger ? 


3AD8I 


67** 










BEQ.S 


flPl 




3ADAI 


6100 


**** 








BSR 


SWAPJT 




3ADEI 












GETZFST 


Al 




3ADEI 


226D 


FFFO 




« 




MOVE.L 


-16(A5),A1 




3AE2I 


60** 










BRA. S 


®2 




3AE4| 








Si 




GETUFST 


Al 




3AD8* 


OA 
















3AE4I 


226D 


FF90 




« 




MOVE.L 


-112(A5),A1 




3AE2* 


04 
















3AE8I 


5149 






92 




SUB.W 


«8, Al 


; compute ZFIRST-8 in Al 


3AEAi 


6100 


FF72 








BSR 


AOTOSO 




3AEEI 


206E 


0010 








MOVE. L 


16(A6),A0 


; return segnum 


3AF2I 


3081 










MOVE. W 


Dl, (AO) 




3AF4I 


206E 


OOOC 








MOVE. L 


12(A6),A0 


; return offset 


3AF8I 


3080 










MOVE. M 


DO, (AO) 




3AFAI 


4A6E 


0018 








TST.W 


24(A6) 


; running user for the debugger ? 


3AFEI 


67** 










BEQ.S 


03 




3B00I 


6100 


Dudmnc 








BSR 


SWAPJT 




3AFE* 


04 
















3B04| 


4E5E 






®3 




UNLK 


A6 




3B06I 


2A5F 










MOVE. L 


(A7)+,A5 
(A7)+,A0 




3B08I 


205F 










MOVE. L 




3B0AI 


DEFC 


OOOE 








ADD. W 


#14, A7 




3B0EI 


4ED0 










JMP 


(AO) 




3B10I 




















3B10I 














LAUNCH 


-- Called by symbolic deb 


ugger to launch user process 


3B10I 




















3B10I 














stack: 






3B10I 




















3B10I 
















24 address object f 


ile 


3B10I 
















20 address error proc 


3B10I 
















16 address of parms 


J.T. load addr, size, data size 


3B10I 
















12 address of Jump 


table 


3B10I 
















8 return address 




3B10I 
















4 saved A5 




3B10I 
















old A6 




3B10I 




















3B10I 


4E56 


0000 




LAUNCH 


LINK 


A6,»0 




3B14I 




















3B14I 














save th 


e debuggers registers 




3B14I 




















3B14I 


2F08 










MOVE. L 


AO, -(A7) 


save AO on tos 


3B16I 












GETDREG 


AO 




3B16I 


206D 


FF94 




» 




MOVE. L 


-108(A5), AO 




3B1AI 


DOFC 


0040 








ADD. W 


»64, AO 


point AO Just above reg save area 


3B1EI 


48E0 


FFFF 








MOVEM. L 


D0-D7/A0-A7, -(AO) 


save Ds and As 


3B22I 


215F 


0020 








MOVE. L 


(A7)+,32(A0) 


nouj save AO 


3B26I 


216E 


0004 


0034 






MOVE. L 


4(A6),52(A0 
8(A6),64(A0) 


and real A5 


3B2CI 


216E 


0008 


0040 






MOVE. L 


save return PC 


3B32I 


40E8 


0044 








MOVE 


SR, 68(A0) 


and slightly modified SR 


3B36I 


0268 


7FFF 


0044 






ANDI.W 


»$7FFF,68(A0) 


make sure tracing is turned off 


3B3CI 


4268 


0046 








MOVE. M 


»0,70(A0) 
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MONITOR 


FILE: SYMDBUG 


TEXT 






38401 


















3B40I 














save pt 


r to fib 




3B40I 




















3B40I 


206E 


0018 








MOVE. L 


24(A6), AO 




3B44I 












PUTUFIB 


AO 




3B44I 


2B48 


FFA4 




n 




MOVE. L 


AO, -92(A5) 




3B48I 




















3B48I 














save pt 


r to error proc 




3B48I 




















3B48I 


206E 


0014 








MOVE. L 


20(A6 ),A0 




3B4CI 












PUTERRP 


AO 




3B4CI 


2B48 


FFAO 




» 




MOVE. L 


AO, -96(A5) 




3B50I 








; 










3B50I 








• 




range c 


ieck Jump table size 
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3B50I 














3B50I 


206E 


0010 


MOVE. L 


16(A6),A0 






3B54I 


0C68 


1800 0004 


CMP.W 


#UJMPTOP-UJMPTBL 


4(A0) 


3B5AI 


63** 




BLS.S 


@1 






3B5CI 


7004 




MOVE. L 


»4,D0 






3B5EI 


6000 


FC9C 


BRA 


ERROR 






3B62I 














3B62I 






swap jump tables (just 


suap 6k brute force ) 


3B62I 














3B5A* 


0<5 












3B62I 


206E 


OOOC 


Si MOVE. L 


12(A6),A0 






3B66I 






PUTUJPT 


AO 






3B66I 


2B48 


FF9C « 


MOVE. L 


A0,-100(A5) 






3B6AI 


6100 


**** 


BSR 


SWAPJT 






3B6EI 














3B6EI 






setup user state 






3B6EI 














3B6EI 


9FFC 


0000 2000 


SUB.L 


»$2000,A7 




; leave 8k bytes for debugger 


3B74I 


6100 


**** 


BSR 


POKEXCP 






3B78I 






RUNUSET 






; runuser: =true 


3B78I 


1B7C 


0001 FFA8 » 


MOVE. B 


#1, -88(A5) 






3B7EI 














3B7EI 






address 


jump table size 


and commons ize 


3B7EI 














3B7EI 


266E 


0010 


MOVE. L 


16{A6),A3 






3B82I 


205B 




MOVE. L 


(A3)+,A0 




; get address as base loc in AO 


3B84I 


4A9B 




TST.L 


1 A3 * 




; skip bytesleft 


3B86I 


2E1B 




MOVE. L 


1 A3)+,D7 




; get commons ize in D7 


3B88I 














3B88I 






startit up, AO contains base 


loc ( ie. $$TOP) 


3B88I 














3B88I 


3410 




MOVE. W 


(A0),D2 




02 = number of segments 


3B8AI 


EB4A 




LSL.W 


«S,D2 




*32 


3B8CI 


2270 


2002 


MOVE. L 


2(A0,D2.W),A1 




Al = address of $$FIRST-20 


3B90I 






GETIBF 


A2 






3B90I 


246D 


FFAE » 


MOVE. L 


-82(A5),A2 
A2,4(A1) 






3B94| 


234A 


0004 


MOVE. L 




Move address of buffer to $$FIRST-16 


3B98I 






GETUFIB 


A2 






3B98I 


246D 


FFA4 # 


MOVE.L 


-92(A5),A2 
A2,8(A1) 






3B9CI 


234A 


0008 


MOVE. L 




Move address of objfile to $$FIRST-12 


3BA0I 


4869 


0014 


PEA 


20(A1) 




Push pointer to $$FIRST 
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MONITOR FILE: 


SYMDBUG. TEXT 








3BA4I 


4267 




MOVE. W 


#0, -{A7) 




Dummy push for Segment Bank Word 


36A6I 


48E7 


1F3E 


MOVEM. L 


D3-D7/A2-A6,-( 


SP 


) 


3BAAI 






GETOFIB 


-(A7) 




♦12(A5) = ©OUTPUT 


3BAAI 


2F2D 


FFE8 » 


MOVE. L 


-24(A5), -(A7) 






3BAEI 






GETIFIB 


-(A7) 




♦8(A5) = OINPUT 


3BAEI 


2F2D 


FFEC « 


MOVE. L 


-20(A5), -(A7) 






3BB2I 


4BEF 


FFF8 


LEA 


-8(SP),A5 




Set A5 so 16(A5) = P-regs. 


3BB6I 


2068 


0002 


MOVE. L 


2(A0),A0 
4(A0'i 




AO = Main Program Entry - 4 


3BBAI 


4EA8 


0004 


JSR 




Start her up! 


3BBEI 


508F 




ADDQ. L 


«8,SP 




Restore the registers 


3BC0I 


4CDF 


7CF8 


MOVEM. L 


(SP)+,D3-D7/A2 


-A 


i 


3BC4| 


4A5F 




TST.W 


iSPJ* 




Throu auay dummy Segment Bank Word 


3BC6I 


588F 




ADDQ. L 


#4, SP 




Eliminate pointer to $$FIRST 


3BC8I 














3BC8I 






get back to d 


sbugger 






3BC8I 














3BC8I 


6100 


**** 


BSR 


SWAPJT 






3BCCI 






RUNUCLR 








3BCCI 


422D 


FFA8 » 


MOVE. B 


»0,-88(AS) 






3BD0I 














3BD0I 






ex it 








3BD0I 














3BD0I 


4E5E 




UNLK 


A6 






3BD2I 


2A5F 




MOVE. L 


(A7)+,A5 
{A7)+, AO 




; restore global ptr 


3BD4| 


205F 




MOVE. L 




i pop return address 


3BD6I 


DEFC 


0010 


ADD.M 


«16,A7 




; delete parameters 


3BDAI 


4ED0 




JMP 


(AO) 






3BDCI 














3BDCI 






POKEXCP 


-- poke except 


io 


1 vectors for the symbolic debugger 


3BDCI 














3B76* 


0066 












39D2* 


020A 












3BDCI 


2F08 




=OKEXCP MOVE.L 


A0,-(A7) 






3BDEI 


41FA 


FC7C 


LEA 


V2, AO 






3BE2I 


21C8 


0008 


MOVE. L 


A0,$8 






3BE6I 


41FA 


FC7A 


LEA 


V3, AO 






3BEAI 


21C8 


OOOC 


MOVE. L 


AO,$C 






3BEEI 


41FA 


FC78 


LEA 


V4, AO 






3BF21 


21C8 


0010 


MOVE. L 


AO, $10 






3BF6I 


41FA 


FC76 


LEA 


V5, AO 






3BFAI 


21C8 


0014 


MOVE.L 


A0,$14 






3BFEI 


41FA 


FC74 


LEA 


V6, AO 






3C02I 


21C8 


0018 


MOVE. L 


A0,$18 






3C06I 


41FA 


FC72 


LEA 


V7,A0 






3C0A( 


21C8 


OOIC 


MOVE. L 


A0,$1C 






3C0EI 


41FA 


FC70 


LEA 


V8, AO 






3C12I 


21C8 


0020 


MOVE. L 


A0,$20 






3C16I 


41FA 


FC6E 


LEA 


V9,A0 






3C1AI 


21C8 


0024 


MOVE. L 


A0,$24 






3C1EI 


41FA 


FC6C 


LEA 


VIO.AO 






3C22I 


21C8 


0028 


MOVE. L 


A0,$28 






3C26I 


41FA 


FC6A 


LEA 


Vll, AO 






. 
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3C2AI 


2:iC8 


002C 






MOVE. L 


A0,$2C 




3C2EI 


41 FA 


FC68 






LEA 


V24, AO 




3C32I 


21C8 


0060 






MOVE. L 


AO, $60 
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MONITOR 


FILE: SYMDBUG 


.TEXT 






3C36I 


41 FA 


FBEA 






LEA 


V31,A0 




3C3AI 


21C8 


007C 






MOVE. L 


A0,$7C 




3C3EI 


205F 








MOVE. L 


(A7) + , AO 




3C40I 


4E75 








RTS 






3C42I 
















3C42I 










RSTRXCP 


-- restore exception vectors for macsbug 


3C42I 
















3C42I 


93C9 






RSTRXCP 


MOVE. L 


#$00000000, Al 




3C44I 


207C 


0000 


OFOO 




MOVE. L 


«$00000F00, AO 




3C4AI 


303C 


003F 






MOVE. N 


«63,D0 ; 


zero page length is 64 longs 


3C4EI 


22D8 






@1 


MOVE. L 


(A0)*.(A1)+ 




3C50I 


51C8 


FFFC 






DBF 


DO,®! 




3C54I 


4E75 








RTS 






3C56I 
















3C56I 










SWAPJT 


-- swap user and debugger 


jump tables 


3C56I 
















3BCA* 


008C 














3B6C* 


OOEA 














3B02* 


0154 














3ADC* 


017A 














3ABE* 


0198 














3A9A>*< 


OIBC 














3C56I 


303C 


OCOO 




SWAPJT 


MOVE. W 


#UJMPT0P-UJMPTBL/2, DO 




3C5AI 


224C 








MOVE. L 


A4, Al 




3C5CI 










GETUJPT 


A2 




3C5CI 


246D 


FF9C 




n 


MOVE. L 


-100(A5), A2 




3C60I 


3211 






(91 


MOVE. M 


(A1),D1 
(A2).(A1)* 




3C62I 


32D2 








MOVE. M 




3C64I 


34C1 








MOVE, kl 


D1,(A2)+ 




3C66I 


5340 








SUB. W 


«1,D0 




3C68I 


66F6 








BNE.S 


91 




3C6AI 


4E75 








RTS 






3C6CI 
















3C6CI 
















3C6CI 








; 








3C6CI 










. INCLUDE COMMAND. TEXT 




3C6CI 
















3C6CI 










FILENAME: COMMAND 




3C6CI 
















3C6CI 
















3C6CI 
















3C6CI 










INITPRG 






3C6CI 
















3C6CI 








INITPRG 


RUNUCLR 






3C6CI 


422D 


FFA8 




# 


MOVE. B 


«0, -88(A5) 




3C70I 


41EF 


0004 






LEA 


4(A7), AO ; 


setup end of break point table 


3C74I 


30BC 


FFFF 






MOVE. M 


«$FFFF, (AO) 




3C78I 


21C8 


012C 






MOVE. L 


A0,$12C 




3C7CI 










GETLOGN 


AO 




3C7CI 


206D 


FF60 




# 


MOVE. L 


-160(A5), AO 




3C80I 


303C 


0007 






MOVE. M 


•MAXDEV, DO 




3C84I 


4298 






@1 


CLR.L 


(AO)* ; 


clear LOGN bit for each unit each dev 


3C86I 


51C8 


FFFC 






DBF 


D0,®1 




3C8AI 


4E75 








RTS 






3C8CI 








; 
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MONITOR 


FILE: COMMAND 


. TEXT 






3C8CI 








, 


SETUPA5 






3C8CI 








J 








3C8CI 


2A7C 


0000 


ODOO 


SETUPA5 


MOVE. L 


«$00000D00,A5 ; 


ptr to system globals 


3C92I 


4E75 








RTS 






3C94I 
















3C94I 










GETREGS 






3C94I 
















3C94I 


245F 






GETREGS 


MOVE. L 


(A7)+, A2 




3C96I 


61F4 








BSR 


SETUPA5 i 


get base of globals 


3C98I 


2038 


0144 






MOVE. L 


$144, DO ; 


get base of memory volume 


3C9CI 


67** 








BEQ.S 


Sll 




3C9E1 


2040 








MOVE. L 


DO, AO 




3CA0I 


DOFC 


0400 






ADD. W 


»2*FBLKSIZ, AO 




3CA4I 


3228 


OOOE 






MOVE. W 


DE0VBLK(A0),D1 




3CA8I 


C3FC 


0200 






MULS 


«FBLKSI2,D1 




3CACI 


D081 








ADD.L 


Dl.DO ; 


compute empty heap 


3CAEI 










PUTEMTH 


DO ; 


save as empty heap 


3CAEI 


2B40 


FFF8 




tf 


MOVE. L 


DO, -8(AS) 




3CB2I 










PUTNP 


DO ; 


cut back heap 


3CB2I 


2B40 


FFF4 




» 


MOVE.L 


DO, -12(A5) 




3CB6I 


60** 








BRA.S 


®2 




3CB8I 








®1 


GETEMTH 


AO ; 


get empty heap 


3C9C* 


lA 














3CB8I 


206D 


FFF8 




« 


MOVE.L 


-8(AS), AO 




3CBCI 










PUTNP 


AO ; 


cut back heap 


3CBCI 


2B48 


FFF4 




» 


MOVE. L 


AO, -12(A5) 




3CC0I 








®2 


GETSPTR 


A7 ; 


get Default SP into A7 


3CB6* 


08 














3CC0I 


2E6D 


FFB2 




n 


MOVE.L 


-78(A5),A7 




3CC4I 


207C 


0000 


0108 




MOVE.L 


#$00000108, AO 




3CCAI 


20CF 








MOVE. L 


A7, (AO)* ; 


set asm lang top 


3CCC1 

i 


43rA 


CA22 






LEA 


UNITBL, Al 
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3CD0I 


20C9 












MOVE. L 


Al.fAO)* 






; set buffer bottom 


3CD2I 


4ED2 












JMP 


(A2) 






; return 


3CD4I 
























3CD4I 


OOOA 










:lpl 


.WORD 


10 








3CD6I 


49 2F 4F 20 


45 


72 


72 


I PL 


.ASCII 


"I/O Error ' 








3CDDI 


6F 72 


20 




















3CE0I 
























3CE0I 


OOIA 










fLPL 


.WORD 


26 








3CE2I 


20 74 79 70 


65 


3A 


20 


rPL 


.ASCII 


' type: <space> 


to 


continue' 


3CE9I 


3C 7Z 


70 61 


63 


65 


3E 














3CF0I 


20 74 6F 20 


63 


6F 


6E 














3CF7I 


74 6£ 


6E 75 


65 


















3CFCI 
























3CFCI 














lOCHK 










3CFCI 
























3CFCI 


4E56 


FFFC 








:OCHK 


LINK 


A6,«-4 






; allocate: iorsltcopy & errornumber 


3D00I 














GETSYSC 


AO 






; Siorslt 


3D00I 


206D 


FFFC 






» 




MOVE. L 


-4(A5), AO 








3D04I 


1050 


FFFE 










MOVE.B 


(A0),-2(A6) 






; save iorslt 


3D08I 


67** 












BEQ.S 


lOCHKX 








3D0A1 


43FA 


FFCA 










LEA 


IPL, Al 






; address 


3D0EI 


343A 


FFC4 










MOVE. W 


ILPL,D2 






; and length 


3D12I 


8100 


>ti>t<iK!tt 










BSR 


PRINT 
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FILE: COMMANO 


.TEXT 










3D16I 


43EE 


FFFC 










LEA 


-4(A6), Al 






; address 


3D1AI 


7402 












MOVE. L 


#2,02 








and length 


3D1CI 


32BC 


0030 










MOVE. W 


#$30, (Al) 








initialize error number to '0' 


3D20I 


4280 












CLR.L 


DO 








3D22I 


102E 


FFFE 










MOVE. B 


-2(A6),D0 






; get iorslt as 32 bit integer 


3D26I 


80FC 


OOOA 








=RNTERR 


01 VU 


#10,00 






; divide by 10 


3D2AI 


4840 












SWAP 


DO 






; get remainder 


3D2CI 


0200 


0007 










AND. B 


#7,00 








3D30I 


0129 


0001 










ADD.B 


DO, 1(A1) 








least sig digit 


3D34I 


4840 












SWAP 


DO 








get quotient 


3D36I 


0200 


0007 










ANO.B 


#7,00 








most sig digit 


3D3AI 


87** 












BEQ.S 


S)l 








3D3CI 


0600 


0030 










ADD.B 


#$30,00 






; if most sig digit <> then add '0' 


30401 


1280 












MOVE. B 


DO, (Al) 








3D3A* 


06 






















3D42I 


6100 


DutokUl 








ill 


BSR 


PRINT 








3D46I 


43FA 


FF9A 










LEA 


TPL, Al 






; address 


304AI 


343A 


FF94 










MOVE. W 


TLPL, D2 






; and length 


3D4EI 


6100 


^t■n^^% 










BSR 


PRINT 








3D52I 


6100 


■K>tc»t>*l 








92 


BSR 


GETCHAR 






; get next character 


3D56I 


lOlF 












MOVE. B 


(A7)+,D0 








3D58I 


OCOO 


0020 










CMPI . B 


#$20,00 






; loop until <space> is read 


3D5CI 


66F4 












BNE. S 


@2 








3D5EI 


6000 


«««« 










BRA 


RESTART 








3D62I 
























3D08* 


Sd 






















3D62I 


4E5E 










lOCHKX 


UNLK 


A6 








3D64| 


4E75 












RTS 










3D66I 
























3D66I 














UPSHFT 


-- upshift the ch 


ar 


in 


DO 


3D66I 
























3D66I 


OCOO 


0061 








JPSHFT 


CMPI.B 


#' a* ,00 






; less than 'a' ? 


3D6AI 


60** 












BLT. S 


UPSHFTX 








3D6CI 


OCOO 


007A 










CMPI.B 


»'z',00 






; greater than 'z' ? 


3D70I 


6E** 












BGT. S 


UPSHFTX 








3D72I 


0400 


0020 










SUB. B 


#32,00 






; DO in 'a'..'z' so upshift 


3D70* 


04 






















3D6A* 


OA 






















3D76I 


4E75 










JPSHFTX 


RTS 










3D78I 
























3D78I 














DELAY FOR SLOW TERMINALS 








3D78I 
























3D78I 


0000 


0000 0000 


0000 


^AIT 


.WORD 


0,0,0,0,0 








3D80I 


0000 






















3D82I 
























3D82I 














PUTPRFX 


-- PUT PREFIXED 


:rtctrl char | 


3D82I 
























3D82I 














ENTER WITH: 








3D82I 
























3D82I 
















AO PTR TO SYSCOM 




3D82I 
















DO WHICH CRTCTRL 


CHAR 


3D82I 
















Al OCOMMAND 


CHAR 




3D82I 
























3D82I 


4A11 










=UTPRFX 


TST. B 


(Al) 






; exit if command char = null 


3D84I 


67** 












BEQ.S 


PUTPRF2 
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MONITOR 


FILE: 


:0MMAND 


.TEXT 










3D86I 


3F09 












MOVE. W 


Al, -(A7) 






; save Ocommand char 


3D88I 


3228 


0014 










MOVE. W 


CRTESC + 10(A0 ), Dl 








3D8CI 


0101 












BTST 


00,01 






; prefixed ? 


3D8EI 


67** 












BEQ.S 


PUTPRFl 








3D90I 


43E8 


OOOB 










LEA 


CRTESC + 1(A0), Al 








@esc char 


3D94I 


7401 












MOVE. L 


#1,02 








length of 1 


3D96I 


6100 


4(>K)tt>(c 










BSR 


PRINT 








print esc char 


3D9AI 


43FA 


FFDC 










LEA 


WAIT.Al 








address 


3D9EI 


740A 












MOVE. L 


#10, D2 








and length 


3DA0I 


6100 


**** 










BSR 


PRINT 








3D8E* 


14 






















3DA4I 


325F 










PUTPRFl 


MOVE. W 


(A7)+, Al 






; restore ^command char 

J 
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3DA6 


7401 












MOVE. L 


»1,D2 ; length of 1 


3DA8 


6100 


***K< 










BSR 


PRINT 


print command char 


3DAC 


43FA 


FFCA 










LEA 


WAIT, Al 


address 


3DB0 


740A 












MOVE. L 


#10,02 


and lenqth 


3DB2 


6100 


**** 










BSR 


PRINT 


3D84 


* 30 
















3DB6 


4E75 










PUTPRF2 


RTS 




3DB8 


















3DB8 














HOMCRSR 


-- HOME CURSOR 


3DB8 


















3DB8 












HOMCRSR 


GETSYSC 


AO 


3DB8I 


2060 


FFFC 








» 


MOVE. L 


-4(A5), AO 


3DBCI 


7004 












MOVE. L 


«P HOME, 00 ; index to prefix array 


3DBEI 


43E8 


OOOA 










LEA 


CRTESC+0(A0), Al ; SPhome char 


3DC2I 


60BE 












BRA 


PUTPRFX 


3DC4I 


















3DC4I 














CLRLN - 


- CLEAR LINE 


3DC4| 


















3DC4| 












CLRLN 


GETSYSC 


AO 


3DC4| 


2060 


FFFC 








# 


MOVE. L 


-4(A5),A0 


3DC8I 


43E8 


OOOC 










LEA 


CRTESC+2(A0), Al ; (Serase eo 1 char 


3DCCI 


4AH 












TST.B 


(Al) 


3DCEI 


67** 












BEQ. S 


CLRLN2 


3DD0I 


7002 












MOVE. L 


#P ERSEL, DO ; index to prefix array 


3DD2| 


60AE 












BRA 


PUTPRFX 


3DCE 


* 04 
















3DD4 


43E8 


0013 








CLRLN2 


LEA 


CLRLINE(AO), Al ; Sclear line char 


30081 


7007 












MOVE. L 


#P CLRLN, DO ; index to prefix array 


3DDAI 


60A6 












BRA 


PUTPRFX 


3DDCI 


















30DC( 














CLRSCR 


-- CLEAR SCREEN 


3D0Ct 


















3DDCI 












CLRSCR 


GETSYSC 


AO 


3DDCI 


2060 


FFFC 








« 


MOVE. L 


-4(A5),A0 


3DE0I 


43E8 


0000 










LEA 


CRTESC + 3(A0), Al ; Serase eos char 


3DE4I 


4A11 












TST.B 


(Al) 


3DE6I 


67** 












8EQ.S 


CLRSCR2 


3DE8I 


7003 












MOVE. L 


#P ERSES, DO ; index to prefix array 


3DEAI 


6096 












BRA 


PUTPRFX 


3DE6 


* 04 
















3DECI 


43E8 


0012 








CLRSCR2 


LEA 


CLRSCRN(AO), Al ; Oclear screen char 


3DF0I 


7006 












MOVE. L 


«P CLRSCDO ; index to prefix array 


3DF2I 


608E 












BRA 


PUTPRFX 
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MONITOR 


FILE: 


COMMAND 


.TEXT 




3DF4I 












. 






3DF4I 


004C 










LPL2 


.WORO 


76 


3DF6I 


4D 28 


61 63 


73 


62 


75 


PL2 


.ASCII 


'M(acsbug, U(csd editor, G(enerate code, ' 


3DFDI 


67 2C 


20 55 


28 


63 


73 








3E04I 


64 20 


65 64 


69 


74 


6F 








3E0BI 


72 2C 


20 47 


28 


65 


6E 








3E12I 


65 72 


61 74 


65 


20 


63 








3E19I 


6F 64 


65 2C 


20 












3E1EI 


44 28 


65 62 


75 


67 


20 




.ASCII 


■0(ebug 


3E251 


20 20 


20 20 


20 


20 


20 








3E2CI 


20 20 


20 20 


20 


20 


20 








3E33I 


20 20 


20 20 


20 


20 


20 








3E3AI 


20 20 


20 20 


20 


20 


20 








3E41I 


20 
















3E42I 


















3E42I 














PR0MPT2 


-- PROMPT THE USER FOR A COMMAND 


3E42I 


















3E42I 


6100 


FF74 








PR0MPT2 


BSR 


HOMCRSR 


3E46I 


6100 


FF7C 










BSR 


CLRLN 


3E4AI 


43FA 


FFAA 










LEA 


PL2,A1 ; PL address 


3E4EI 


343A 


FFA4 










MOVE. U 


LPL2,02 ; and length 


3E52I 


60** 












BRA.S 


PRINT 


3E54| 


















3E54I 


















3E54I 


















3E54I 












REVISION 




3E54I 


3F7C 


006E 0004 








MOVE. M 


«110,4(A7) ; high byte = 0, loui byte = 11.0 


3E5A1 


4E75 












RTS 




3E5CI 












; 






3E5CI 


00 4F 










LPL 


.WORD 


79 


3E5EI 


40 6F 


6E 69 


74 


6F 


72 


PL 


.ASCII 


'Monitor: E(dit, C(ompile, F( i le, L(ink, ' 


3E65I 


3A 20 


45 28 


64 


69 


74 








3E6CI 


2C 20 


43 28 


6F 


60 


70 








3E73 


69 6C 


65 2C 


20 


46 


28 








3E7AI 


69 6C 


65 2C 


20 


4C 


28 








3E81 


69 6E 


6B 2C 


20 












3E86 


58 28 


65 63 


75 


74 


65 




.ASCII 


'X(ecute, A(ssemble, S(ysmgr, ? [0.11.0] ' 


3E80 


2C 20 


41 28 


73 


73 


65 








3E94 


6D 62 


60 65 


2C 


20 


53 








3E9B 


28 79 


73 60 


67 


72 


2C 








3EA2 


20 3F 


20 5B 


30 


2E 


31 








3EA9 


31 2E 


30 50 


20 












3EAE 












; 


PROMPT 


-- PROMPT THE USER FOR A COMMAND 


3EAE 












; 






3EAE 


6100 


FF08 








PROMPT 


BSR 


HOMCRSR 


3EB2 


6100 


FFIO 










BSR 


CLRLN 


3EB6 


43FA 


FFA6 










LEA 


PL.Al J PL address 


3EBA 


343A 


FFAO 










MOVE. W 


LPL, 02 ; and length 


3EBE 












; 






3EBE 












; 


PRINT -■ 


■ PRINT AN ARRAY OF BYTES 


, 
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3EBEI 






. 








3EBEI 










ENTER WITH: 






3EBEI 
















3EBEI 










Al address 






3E6EI 










D2 length 






PAGE 


- 153 


MONITOR 


FILE: COMMAND 


.TEXT 






3EBEI 














3E52* 


6A 












3DB4* 


OlOA 












3DAA* 


0114 












3DA2* 


one 












3D98* 


0126 












3D50* 


016E 












3D44* 


017A 












3D14* 


OlAA 












3EBEI 


3F3C 


0001 


PRINT 


MOVE. M «CONSOLE, - ( A7 ) 


; unit# 




3EC2I 


2209 






MOVE.L Al.Dl 


; address 




3EC4I 


4243 






MOVE.W «0,D3 


; block* 




3EC6I 


7C02 






MOVE.L #0UTBIT,D6 






3EC8I 


6100 


DA92 




BSR GETUNIT 


; get unit# and validate 


setup drvr 


3ECCI 


4E90 






JSR (AO) 


; go to driver 




3ECEI 


4E75 






RTS 






3ED0I 
















3ED0I 










GETCHAR — GET A CHAR FROM THE 


CONSOLE 




3ED0I 
















3ED0I 










RETURNS THE CHAR ON TOS IN THE 


MS BYTE OF WORD 




3ED0I 
















3D54* 


017C 












3ED0I 


205F 




GETCHAR 


MOVE.L (A7)*,A0 


; save return address 




3ED21 


4267 






-440VE.W #0, -(A7) 


; allocate word for resu 


U 


3ED4I 


220F 






MOVE.L A7,D1 


; address 




3ED6I 


2F08 






MOVE.L A0,-(A7) 


; restore return address 




3ED8I 


7401 






MOVE.L »1,D2 


; length 




3EDAI 


3F3C 


0002 




MOVE.W »SYSTERM, -(A7) 


; unit* 




3EDEI 


4243 






MOVE.W #0,03 


; block* 




3EE0I 


7C01 






MOVE.L #INBIT,D6 






3EE2I 


6100 


DA78 




BSR GETUNIT 


; get unit* and validate, 


setup drvr 


3EE6I 


4E90 






JSR (AO) 


; go to driver 




3EE8I 


41EF 


0004 




LEA 4(A7), AO 


; address of char read 




3EECI 


1010 






MOVE.B (AO),DO 






3EEEI 


OCOO 


OOOD 




CMPI.B «13,D0 


; if char = cr then echo 


crlf 


3EF2I 


67** 






BEQ. S WCRLF 






3EF4| 


OCOO 


0020 




CMPI.B #32, DO 


; if char >= ' ' then echo char 


3EF8I 


6D** 






BLT. S GETCHRX 






3EFAI 


2208 






MOVE.L AO.Dl 


; address 




3EFCI 


7401 






MOVE.L «1,D2 


; length 




SLHtl 


3F3C 


0002 




MOVE. W «SYSTERM, - ( A7 ) 


; unit* 




3F02I 


4243 






MOVE. W #0, D3 


; block* 




3F04I 


7C02 






MOVE.L #0UTBIT,D6 






3F06I 


6100 


DA54 




BSR GETUNIT 


; get unit* and validate. 


setup drvr 


3F0AI 


4E90 






JSR (AO) 


; go to driver 




3EF8* 


12 












3F0CI 


4E75 




GETCHRX 


RTS 






3F0EI 






; 








3F0EI 


ODOO 




CRLF 


. WORD $0D00 






3F10I 
















3F10I 










WCRLF -- write CRLF to CONSOLE 






3F10I 
















3EF2* 


IC 












3F10I 


43FA 


FFFC 


WCRLF 


LEA CRLF.Al 






3F14I 


7401 






MOVE.L «1,D2 






PAGE 
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MONITOR 


FILE: COMMAND 


.TEXT 






3F18I 


60A6 






BRA PRINT 






3F18I 
















3F18I 










XEQUTE -- execute a file 






3F18I 
















3F18I 


OOOC 




XLPL 


. WORD 12 






3F1AI 


57 68 61 74 20 


66 69 XPL 


.ASCII 'What file ? ' 






3F211 


6C 65 20 3F 20 










3F26( 


0820 


0800 


BSSPBS 


.WORD $0820, $0800 






3F2AI 
















3F2AI 








initialize & prompt user for Filename 






3F2AI 
















3F2AI 






XEQUTE 


GETSYSC AO 






3F2AI 


206D 


FFFC 


« 


MOVE.L -4(A5),A0 






3F2EI 


4210 






MOVE.B ttlNOERR, (AO) 


; in it ia 1 ize iors It 




3F30I 


6100 


FE86 


XEQUTEO 


BSR HOMCRSR 






3F34I 


6100 


FEA6 




BSR CLRSCR 






3F38I 


43FA 


FFEO 




LEA XPL.Al 


; PL address 




3F3CI 


343A 


FFDA 




MOVE. W XLPL, D2 


; and length 




3F40I 


6100 


FF7C 




BSR PRINT 






3F44I 








GETSTRB A2 


; Ostring 




3F44I 


246D 


FFAA 


« 


MOVE.L -86(A5), A2 






3F48I 


264A 






MOVE.L A2,A3 






3F4AI 


421A 






MOVE.B »0, (A2) + 


; in it ia 1 ize str ing 




3F4CI 
















3F4CI 








read 


the filename into strbuf 






3F4CI 
















3F4CI 


6182 




XEQUTEl 


BSR GETCHAR 


; get next character 




3F4EI 


lOlF 






MOVE.B (A7)+,D0 






3F50I 


6100 


FE14 




BSR UPSHFT 


; and upshift it 




3F54I 


OCOO 


0008 




CMPI.B «8,D0 


; char = <bs> ? 




, 
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3F58I 


87** 






BEQ. S 


XEQUTE4 




3F5AI 








GETSYSC 


AO 




3F5AI 


206D 


FFFC 


« 


MOVE. L 


-4(A5), AO 
LINDEL(AO ),D0 




3F5EI 


B028 


0025 




CMP.B 


; char = <linedel> ? 


3F62I 


67CC 






BEQ. S 


XEQUTEO 




3F64| 


OCOO 


OOOD 




CMPI.B 


#13, DO 


; char = <cr> ? 


3F68I 


67** 






BEQ. S 


XEQUTE2 




3F6AI 


5213 






ADD.B 


«1,(A3) 


; no then incr string length 


3F6CI 


67** 






BEQ.S 


XEQUTE2 


i string overflow ? 


3F6EI 


14C0 






MOVE. B 


DO, (A2)+ 


; no then append the character 


3F70I 


60DA 






BRA.S 


XEQUTEl 


; go get next character 


3F58* 


18 












3F72I 


4A13 




XEQUTE4 


TST.B 


{A3) 


; any chars ? 


3F74I 


67D6 






BEQ.S 


XEQUTEl 




3F76I 


5313 






SUB.B 


«1,(A3) 


; yes deer string length and 


3F78I 


4A22 






TST.B 


-(A2) 


; discard the last char 


3F7AI 


43FA 


FFAA 




LEA 


BSSPBS, Al 




3F7EI 


7403 






MOVE. L 


«3,D2 




3F80I 


6100 


FF3C 




BSR 


PRINT 


; erase 1 char 


3F84I 


60CB 






BRA.S 


XEQUTEl 




3F86I 














3F86I 






; ex it 








3F86I 














3F6C* 


18 












3F68* 


IC 












PAGE 


- 155 


MONITOR 


FILE: COMMAND 


.TEXT 






3F86I 


4A13 




XEQUTE2 


TST.B 


(A3) 


; string length zero ? 


3F88I 


66** 






BNE. S 


XEQUTE3 


; yes, then no file name 


3F8AI 








GETSYSC 


AO 




3F8AI 


206D 


FFFC 


# 


MOVE. L 


-4(A5),A0 




3F8EI 


lOBC 


OOOA 




MOVE. B 


#IN0F1LE, (AO) 




3F88* 


08 












3F92I 


4E75 




XEQUTE3 


RTS 






3F94I 














3F94I 








FROMEXEC -- get a character from the exec file 


3F94I 














3F94| 






FROMEXEC 






3F94I 


48E7 


7FFE 




MOVEM. L 


D1-D7/A0-A6, -(A7) 




3F98I 








GETNXCH 


DO 




3F98I 


102D 


FF86 


« 


MOVE. B 


-122(A5), DO 




3F9CI 


66** 






BNE.S 


91 




3F9EI 


42A7 






CLR.L 


-(A7) 




3FA0I 


487A 


m*** 




PEA 


03 




3FA4I 








GETXFIB 


-(A7) 




3FA4| 


2F2D 


FF82 


» 


MOVE. L 


-126(A5),-(A7) 




3FA8I 


6000 


EFDE 




BRA 


FREADCHR 




3FA2* 


OOOA 












3FACI 


301F 




®3 


MOVE. W 


(A7)+,D0 




3FAEI 








PUTNXCH 


DO 




3FAEI 


1B40 


FF86 


# 


MOVE.B 


D0,-122(A5) 




3F9C* 


14 












3FB2I 


42A7 




®1 


CLR.L 


-(A7) 




3FB4I 


487A 


m*** 




PEA 


®4 




3FB8I 








GETXFIB 


-(A7) 




3FB8I 


2F2D 


FF82 


» 


MOVE. L 


-126(A5), -(A7) 




3FBCI 


6000 


EFCA 




BRA 


FREADCHR 




3FC0I 






@4 


GETNXCH 


DO 




3FB6* 


OOOA 












3FC0I 


102D 


FF86 


n 


MOVE. B 


-122(A5),D0 




3FC4I 


32 IF 






MOVE. \ri 


(A7)+,D1 




3FC6I 








GETXFIB 


AO 




3FC6I 


206D 


FF82 


» 


MOVE. L 


-126(A5),A0 
FEOLN(AO) 




3FCAI 


4A28 


0004 




TST.B 




3FCEI 


67** 






BEQ.S 


195 




3FD0I 


123C 


OOOD 




MOVE.B 


»$D,D1 




3FD4I 


4228 


0004 




MOVE. B 


»0,FEOLN(A0) 




3FD8| 






(35 


PUTNXCH 


Dl 




3FCE* 


08 












3FD8I 


1B41 


FF86 


n 


MOVE.B 


D1,-122(A5) 




3FDCI 








GETEBST 


D2 




3FDCI 


142D 


FF87 


n 


MOVE.B 


-121(A5),D2 




3FE0I 


B002 






CMP.B 


D2,D0 




3FE2I 


66** 






BNE.S 


02 




3FE4I 


B202 






CMP.B 


D2,D1 




3FE6I 


66** 






BNE.S 


S2 




3FE8I 








PUTEBST 


#0 




3FE8I 


422D 


FF87 


u 


MOVE. B 


«0, -121(A5) 




3FECI 








PUTNXCH 


«0 




3FECI 


422D 


FF86 


# 


MOVE. B 


#0,-122(A5) 




3FF0I 


6100 


FEDE 




BSR 


GETCHAR 


; get next character from console 


3FF4| 


lOlF 






MOVE. B 


(A7)+,D0 




3FE6* 


OE 
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3FE2* 


12 












3FF6I 


4CDF 


7FFE 


®2 


MOVEM. L 


(A7)+,D1-D7/A0-A6 




3FFAI 


4E75 






RTS 






3FFCI 














3FFCI 








OPNEXEC 


-- open exec file 




3FFCI 














3FFCI 






OPNEXEC 


GETXFIB 


-(A7) 


; Ofile 


3FFCI 


2F2D 


FF82 


tt 


MOVE. L 


-126(A5), -(A7) 




40001 


42A7 






CLR.L 


-(A7) 
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40021 


3F3C 


FFFE 


40061 


6100 


DB04 


400AI 






400AI 


2F2D 


FF82 


400EI 






400EI 


2F2D 


FFAA 


40121 


3F3C 


0001 


40161 


42A7 




40181 


6100 


E740 


401CI 


4E75 




401EI 






401 El 






401EI 






401EI 






401EI 


206D 


FFAA 


40221 


2248 




40241 


4240 




40261 


1018 




40281 


DOCO 




402AI 


lOFC 


002E 


402EI 


lOFC 


0054 


40321 


lOFC 


0045 


40361 


lOFC 


0058 


403AI 


lOFC 


0054 


403EI 


5A11 




40401 


4E75 




40421 






40421 






40421 






40421 


3F01 




40441 






40441 


102D 


FF87 


40481 


6600 


XlHoHXc 


404CI 


4A57 




404EI 


67** 




40501 






40501 


206D 


FFAA 


40541 


1018 




40561 


OCOO 


0005 


405AI 


6D00 


***HC 


405EI 


1018 




40601 


OCOO 


0045 


40641 


6600 


«*n<* 


40681 


2010 




406AI 


0C80 


5845 432F 
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40701 


6600 


**** 


40741 






40741 


2060 


FFAA 


40781 


7201 




407AI 


363C 


0005 


407EI 


6100 


DD7A 


40821 


5343 




40841 


66F8 




404E* 


36 




40861 


6100 


FF74 


408AI 






408AI 


206D 


FFFC 


408EI 


4A10 




40901 


67** 




40921 


6100 


«*«* 


40961 


6100 


FF64 


409AI 






409AI 


206D 


FFFC 


409EI 


4A10 




40A0I 


67** 




40A2I 






40A2I 


206D 


FFAA 


40A6I 


7201 




40A8I 


6100 


DD50 


40ACI 


6100 


FF70 


40B0I 


6100 


FF4A 


40B4I 






40B4I 


206D 


FFFC 


40B8I 


4A10 




40BAI 


67** 




40BCI 


6100 


**** 


40C0I 


6100 


FF3A 


40C4I 






40C4I 


206D 


FFFC 


40C8I 


4A10 




40CAI 


66** 




40BA* 


10 




40A0* 


2A 




4090* 


3A 




40CCI 


6100 


FEC6 


40D0I 


4A57 




40D2| 


66** 




40041 


OCOO 


0025 


40D8I 


66** 




40DAI 






40D2« 


06 




40DAI 


1B40 


FF87 


40DEI 


303C 


0001 



TPR:M0N11.TEXT 



Page 095 



MOVE. M 


»-2,-(A7) 




. 


text file 


BSR 


FINIT 








GETXFIB 


-(A7) 




. 


Sf ile 


MOVE. L 


-126(A5), -(A7) 








GETSTRB 


-(A7) 




. 


®t it le 


MOVE. L 


-86(A5), -(A7) 








MOVE.W 


#1,-(A7) 




; 


openold: =true 


CLR.L 


-(A7) 




; 


junk 


BSR 


FOPEN 




; 


open exec F i le 


RTS 










; APNDTXT 


-- appends '.TEXT' 


to 


the 


code File name 



APNDTXT GETSTRB AO 



MOVE.L -86(A5), AO 

MOVE.L AO.Al 

CLR. M DO 

MOVE.B (AO) + ,DO 

ADD.W DO.AO 

MOVE.B #'.',(A0)* 

MOVE.B »'T',(A0)+ 

MOVE.B «'E',(AO)+ 

MOVE.B #'X',(A0) + 

MOVE.B «'T',(A0)+ 

ADD.B »5,(A1) 
RTS 



TRYEXEC -- looks For EXEC/ in strbuf 

; already in an exec ? 



TRYEXEC MOVE. W D1,-(A7) 

GETEBST DO 

« MOVE.B -121(A5),D0 

BNE (91 

TST.W (A7) 

BEG. S ®4 

GETSTRB AO 

« MOVE.L -86(A5), AO 

MOVE.B (AO)+,DO 

CMP. B #5, DO 

BLT ®1 

MOVE.B (AO)+,DO 

CMP.B »$45,D0 

BNE (31 

MOVE.L (A0),D0 

CMP.L #$5845432F,D0 
FILE: COMMAND. TEXT 



look For EXEC/ 



BNE 



@1 



®2 



(S3 



®Q 



GETSTRB 


AO 




MOVE. L 


-86(A5 


), AO 


MOVE. L 


#1,D1 




MOVE. M 


#5,D3 




BSR 


DELICH 




SUB.N 


«1,D3 




BNE.S 


92 




BSR 


OPNEXEC 




GETSYSC 


AO 




MOVE. L 


-4rA5), 
(AO) 


AO 


TST.B 




BEQ. S 


03 




BSR 


INSSTAR 




BSR 


OPNEXEC 




GETSYSC 


AO 




MOVE. L 


-4(A5), 
(AO) 


AO 


TST.B 




BEQ.S 


®3 




GETSTRB 


AO 




MOVE. L 


-86(A5 


, AO 


MOVE. L 


»1,D1 




BSR 


DELICH 




BSR 


APNDTXT 




BSR 


OPNEXEC 




GETSYSC 


AO 




MOVE. L 


-4(A5). 
(AO) 


AO 


TST.B 




BEQ.S 


®3 




BSR 


INSSTAR 




BSR 


OPNEXEC 




GETSYSC 


AO 




MOVE. L 


-4(A5), 


AO 


TST.B 


(AO) 




BNE.S 


®1 




BSR 


FROMEXEC 




TST.W 


(A7) 




BNE. S 


®6 




CMP.B 


«'%',D0 




BNE. S 


31 




PUTEBST 


DO 




MOVE. B 


DO, -121 


(A5) 


MOVE. M 


»1,D0 





delete the EXEC/ 



go open it 
test iorslt 



go open it 
test iorslt 



test iorslt 



set ebstop to first char 
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40E2I 


60** 






BRA. S 


®5 




40D8« 


OA 












40CA* 


18 












4072* 


0072 












4066* 


007E 












405C* 


0088 












404A* 


009A 
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40E4| 


4240 




91 


MOVE. M 


»0,D0 




40E2* 


02 












40E6i 


4A5F 




95 


TST.W 


(A7)+ ; discard Dl 




40E8I 


4E75 






RTS 






40EAI 














40EAI 








OPNCODE 


-- open code f i le 




40EAI 














40EAI 






OPNCODE 


GETCFIB 


-(A7) ; ®file 




40EAI 


2F2D 


FFDC 


« 


MOVE. L 


-36(A5), -(A7) 




40EEI 


42A7 






CLR.L 


-(A7) 




40F0I 


3F3C 


FFFF 




MOVE. Vi 


«-l, -(A7) ; untyped file 




40F4I 


6100 


DA16 




BSR 


FINIT ; initialize codefib 




40F8I 








GETCFIB 


-(A7) ; Ofile 




40F8I 


2F2D 


FFDC 


» 


MOVE. L 


-36(A5), -(A7) 




40FCI 








GETSTRB 


-(A7) ; Stitle 




40FCI 


2F2D 


FFAA 


« 


MOVE. L 


-86(A5|, -(A7) 
«l,-fA7) ; openo Id: =true 




41001 


3F3C 


0001 




MOVE. W 




41041 


42A7 






CLR.L 


-(A7) ; junk 




41061 


6100 


E652 




BSR 


FOPEN ; open code file 




410AI 


4E75 






RTS 






410CI 














410CI 








APNDOBJ 


-- appends '.OBJ' to the code file name 




410CI 














410CI 






APNDOBJ 


GETSTRB 


AO 




410CI 


206D 


FFAA 


# 


MOVE. L 


-86(A5),A0 




41101 


2248 






MOVE. L 


AO.Al 




41121 


4240 






CLR.M 


DO 




41141 


1018 






MOVE. B 


(AO) + ,DO 




41161 


DOCO 






ADD.M 


DO.AO 




41181 


lOFC 


002E 




MOVE. B 


«'. ', (A0)+ 




411CI 


lOFC 


004F 




MOVE. B 


«'0', (A0)+ 




41201 


lOFC 


0042 




MOVE. B 


«'B', (A0)+ 




41241 


lOFC 


004A 




MOVE.B 


#' J" , (A0)+ 




41281 


5811 






ADD.B 


»4, (Al ) 




412AI 


4E75 






RTS 






412CI 














412CI 














412CI 














412CI 






INSSTAR 


GETSTRB 


AO 




40BE* 


006E 












4094* 


0098 












412CI 


206D 


FFAA 


« 


MOVE. L 


-86(A5),A0 




41301 


4240 






CLR.W 


DO 




41321 


1018 






MOVE. B 


(AO) + ,DO 




41341 


DOCO 






ADD.W 


DO.AO 




41361 


43E8 


0001 




LEA 


1(A0), Al 
-(A0),-(A1) 




413AI 


1320 




®1 


MOVE. B 




413CI 


5300 






SUB.B 


#1,D0 




413EI 


66FA 






BNE. S 


®1 




41401 


133C 


002A 




MOVE. B 


»' *' , -(Al ) 




41441 








GETSTRB 


AO 




41441 


206D 


FFAA 


« 


MOVE. L 


-86(A5),A0 




41481 


5210 






ADD.B 


#1,(A0) 




414AI 


4E75 






RTS 






414CI 






; 
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414CI 








LOADOBJ 


-- loads object file into buffer and verifies head 


er 


414CI 














414CI 








first read code file into buffer 




414CI 














414CI 








note: the address of the buffer is propagated from here 




414CI 














414CI 






LOADOBJ 


GETIBF 


A4 ; set A4 to buffer start 




414CI 


286D 


FFAE 


# 


MOVE. L 


-82(A5),A4 




41501 


4287 






MOVE.L 


«0,D7 ; next block to read is 




41521 


4285 






MOVE.L 


«0,05 ; set INBYTE to zero 




41541 


6100 


F5C2 




BSR 


FILL8UF ; go fill the buffer 




41581 














41581 






; verif 


U it is 


in executable file 




41581 














41581 


6100 


F60C 




BSR 


NEXT. 1 J get first byte 




415CI 


0C40 


008F 




CMP. W 


»$8F,D0 ; executable ? 




41601 


67** 






BEQ.S 


91 




41621 








GETSYSC 


AO 




41621 


206D 


FFFC 


tt 


MOVE. L 


-4(A5),A0 




41661 


lOBC 


OOOE 




MOVE. B 


WIBADFMT, (AO) ; set iorslt 




4160* 


08 












416AI 


4E75 




91 


RTS 






416CI 














416CI 








STRTOBJ 






416CI 














416CI 


OOOC 




RLPL 


.WORD 


12 




416EI 


52 75 6E 6E 69 


6E 67 RPL 


.ASCII 


' Runn ing ... 




41751 


20 2E 2E 2E 20 
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417A 






. 








417A 








; executable File, get size, add 


rass, Jump table size and commonsize 


417A 
















417A 


4287 




STRTOBJ MOVE.L 


«0,D7 




J restore D7 (next block is still 0) 


417C 


6100 


F5F8 


BSR 


NEXT. 3 




; get b locks ize 


4180 


6100 


F606 


BSR 


NEXT. 4 ^ l--' 

DO, Ai ■■in' 




; get address 


4184 


2240 




MOVE. L 






4186 


2049 




MOVE. L 


A1,A0^ 




; save address as baseloc in AO 


4188 


6100 


F5FE 


BSR 


NEXT. 4 




; get b^^^^^t^n h ^ ^^ 


418C 


2400 




MOVE.L 


D0,D2 




418E 


6100 


F5F8 


BSR 


NEXT. 4 ^ 




; get commonsize 


4192 


2F00 




MOVE. L 


DO, -(A7) J 






4194 


303C 


1800 


MOVE. W 


«UJMPTBL, DO 




; compute heapbase- Jumptab lestart 


4198 


48C0 




EXT.L 


DO 






419A 


4480 




NEG.L 


DO 






419C 


DOBS 


0138 


ADD.L 


$138, DO 






41A0 


B440 




CMP.W 


D0,D2 




; user Jump table too large ? 


41A2 


63** 




BLS. S 


91 






41A4 


7004 




MOVE. L 


»4, DO 






41A6 


6000 


F654 


BRA 


ERROR 






41AA 
















41AA 








copy the jump 


table into memor 


^ 




41AA 










- 






41A2 


* 06 






—X 






41AA 


6100 


F5BA 


®1 BSR 


NEXT. 1 \ 




; copy next byte of jump table 


41AE 


12C0 




MOVE. B 


D0,(A1)+ \ 






41B0 


5342 




SUB.W 


#1,D2 y 
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41B2 


66F6 




BNE.S 


91 






41B4 
















41B4 








start it up 








41B4 
















41B4 








AO conta ins B 


aseloc ( ie. $$T0P 


) 




41B4 
















4184 


3410 




MOVE. M 


(A0),D2 


D2 » n 


ufflber of segments 


41B6 


EB4A 




LSL.W 


«5,D2 




*32 


41B8 


2270 


2002 


MOVE. L 


2(A0, D2.il ),A1 


Al = a 


ddress of $$FIRST-20 


41BC 


234C 


0004 


MOVE. L 


A4, 4(A1) 


Move a 


ddress of buffer to S$FIRST-16 


41C0 






GETCFIB 


A2 




• 


41C0 


246D 


FFDC 


« MOVE. L 


-36(A5), A2 
A2,8(A1) 






41C4 


23 4A 


0008 


MOVE. L 


Move a 


ddress of objflle to $$FIRST-12 


41C8 


201F 




MOVE. L 


(A7)+,D0 


Fetch 


common size 


41CA 


4869 


0014 


PEA 


20(A1) 


Push p 


o inter to $$FIRST 


41CE 


4267 




MOVE. M 


#0, -(A7) 


Dummy 


push for Segment Bank Word 


41D0 


48E7 


1F3E 


MOVEM. L 


D3-D7/A2-A6, -(SP 


) 




41D4 


48E7 


8080 


MOVEM. L 


D0/A0,-(A7)jS-^ 


Save B 


aseloc and Common Size 


41D8 


43FA 


FF94 


A.EA 


RPL, Al 


PL add 


ress 


41DC 


343A 


FF8E 


( MOVE.W 


RLPL, D2 


and length 


41E0 


6100 


FCDC 


\ BSR 


PRINT 






41E4 


6100 


FD2A 


BSR 


WCRLF^ 






41E8 


4CDF 


0180 


MOVEM. L 


(A7)+,D7/A0 
A0,A4 


Restore Baseloc and Common Size (into 07) 


41EC 


2848 




MOVE. L 


Setup 


A4 Jump Table Base Address 


41EE 






GETOFIB 


-{AT) 


*12(A5 


) = 90UTPUT 


41EE 


2F2D 


FFE8 


» MOVE. L 


-24(A5), -(A7) 






41F2 






GETIFIB 


-(A7) 


♦ 8(A5 


) = SiINPUT 


41F2 


2F2D 


FFEC 


» MOVE. L 


-20(A5), -(A7) 






41F6 


4E3EF 


FFF8 


LEA 


-8(SP),A5 


Set A5 


so 16(A5) = P-regs. 


4irA 


2068 


0002 


MOVE. L 


2(A0),A0 


AO = M 


a in Program Entry - 4 


41FE 
4202 


4EA8 
508F 


0004 




JSR 


i^ 


Start 


her up!- 


ADDQ.L 


»«, iiP ■ ' 


Re.'stdre the registers 


4204 


4CDF 


7CF8 


MOVEM. L 


(SP)+,D3-D7/A2-A( 






4208 


4A5F 




TST. W 


Throw 


auiay dummy Segment Bank Word 


420A 


588F 




ADDQ. L 


«4,SP 


Eliminate pointer to $$FIRST 


420C 


4E75 




RTS 








420E 
















420E 








Main prompt 


loop starts here 






420E 
















420E 


6100 


FA84 


RESTART BSR 


GETREGS 




; restore AS, SP and NP 


4212 


6100 


FBA4 


BSR 


HOMCRSR 






4216 


6100 


FBC4 


BSR 


CLRSCR 






421A 


6100 


FA78 


CMDLOOP BSR 


GETREGS 




; restore buf ptrs, AS, SP and NP 


421E 


6100 


FA22 


BSR 


RSTRXCP 






4222 


6100 


FA48 


BSR 


INITPRG 






4226 


6100 


FC86 


BSR 


PROMPT 






422A 






CMDL00P2 








422A 


6100 


FCA4 


BSR 


GETCHAR 




; returns char on tos 


422E 


lOlF 




MOVE. B 


(A7)+,D0 






4230 


6100 


FB34 


BSR 


UPSHFT 






4234 


OCOO 


0058 


CMPI.B 


«'X',DO 




; X(ecute ? 


4238 


6600 


«*** 


BNE 


TRYDBUG 






423C 






DBUGCLR 








423C 


422D 


FFA9 


« MOVE. B 


«0, -87{A5) 






4240 


6100 


FCE8 


BSR 


XEQUTE 




; get file to execute 


PAGE 


- 161 


MONITOR 


FILE: COMMAND. TEXT 








4244 






GETSYSC 


AO 






4244 


206D 


FFFC 


» MOVE. L 


-4(A5), AO 






4248 


4A10 




TST.B 


(AO) 




; test iorslt 


424A 


66C2 




BNE 


RESTART 






424C 


323C 


0001 


MOVE. W 


#1,D1 






4250 


6100 


FDFO 


BSR 


TRYEXEC 




; insist on EXEC/ 


4254 


4A40 




TST.W 


DO 






4256 


66C2 




BNE 


CMDLOOP 
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42581 


6100 


FE90 


TRYXEOT 


BSR 


OPNCODE 


; open object file 




425CI 








GETSYSC 


AO 






425CI 


206D 


FFFC 


# 


MOVE. L 


-4(A5), AO 
(AO) 






42601 


4A10 






TST.B 


; test iorslt 




42621 


67** 






BEQ.S 


FOPENOK 






42641 








GETSTRB 


AO 






42641 


206D 


FFAA 


n 


MOVE. L 


-86(A5),A0 






42681 


4A10 






TST.B 


(AO) 


; long string ? 




426AI 


6BA2 






BMI.S 


RESTART 






4260 


6100 


FEBE 




BSR 


INSSTAR 






42701 


6100 


FE78 




BSR 


OPNCODE 






42741 








GETSYSC 


AO 






42741 


206D 


FFFC 


« 


MOVE. L 


-4(A5), AO 
(AO) 






42781 


4A10 






TST.B 






427AI 


67** 






BEQ.S 


FOPENOK 






427CI 


7201 






MOVE. L 


«1,D1 






427EI 








GETSTRB 


AO 






427EI 


206D 


FFAA 


« 


MOVE. L 


-86(A5), AO 






42821 


6100 


DB76 




BSR 


DELICH 






42861 


6100 


FE84 




BSR 


APNDOBJ 


; no, then append '.OBJ' 




428AI 


6100 


FE5E 




BSR 


OPNCODE 


; try to open again 




428EI 








GETSYSC 


AO 






428EI 


206D 


FFFC 


» 


MOVE. L 


-4(A5), AO 
(AO) 






42921 


4A10 






TST.B 


; tost iprslt 




42941 


67** 






BEQ.S 


FOPENOK 






42961 


6100 


FE94 




BSR 


INSSTAR 






429AI 


6100 


FE4E 




BSR 


OPNCODE 






429EI 








GETSYSC 


AO 






429EI 


206D 


FFFC 


« 


MOVE. L 


-4(A5),A0 
(AO) 






42A2I 


4A10 






TST.B 


; test iorslt 




42A4I 


67** 






BEQ.S 


FOPENOK 






42A6I 


7201 






MOVE. L 


#1,D1 






42A8I 








GETSTRB 


AO 






42A8I 


206D 


FFAA 


« 


MOVE. L 


-86(A5),A0 






42ACI 


6100 


DB4C 




BSR 


DELICH 






42B0I 








GETSTRB 


AO 






42B0I 


2060 


FFAA 


u 


MOVE. L 


-86(A5),A0 






42B4I 


5910 






SUB.B 


»4, (AO) 


; delete '.OBJ' 




42B6I 


4241 






CLR.W 


Dl 






42B8I 


6100 


FD88 




BSR 


TRYEXEC 


; don't insist on EXEC/ 




42BCI 


4A40 






TST.W 


DO 






42BEI 


6600 


FF5A 




BNE 


CMDLOOP 






42C2I 


4AB8 


0154 


CALLLDR 


TST. L 


$154 


; check to see if loader is in memor 


y 


42C6I 


67** 






BEQ.S 


NOLOADR 






42C8I 


2078 


0154 




MOVE. L 


$154, AO 






42CCI 








GETSTRB 


-(A7) 


; Stitle 




42CCI 


2F2D 


FFAA 


« 


MOVE. L 


-86(A5), -(A7) 






PAGE 
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FILE: COMMAND 
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42D0I 








GETOFIB 


-(A7) 


; ®OUTPUT 




42D0I 


2F2D 


FFE8 


# 


MOVE. L 


-24(A5), -(A7) 






42D4I 








GETIFIB 


-(A7) 


; SINPUT 




42D4I 


2F2D 


FFEC 


# 


MOVE. L 


-20(A5),-(A7) 






42D8I 


4E90 






JSR 


(AO) 


; call the intrinsic unit loader 




42DAI 


6000 


FF3E 




BRA 


CMDLOOP 






42C6* 


16 














42DEI 


6100 


FAIC 


NOLOADR 


BSR 


lOCHK 






42A4* 


3C 














4294* 


4C 














427A'c 


66 














4262* 


7E 














42E2I 


6100 


FE68 


FOPENOK 


BSR 


LOADOBJ 


■ load the object file 




42E6I 








GETSYSC 


AO 






42E6I 


206D 


FFFC 


# 


MOVE. L 


-4(A5), AO 
(AO) 






42EAI 


4A10 






TST.B 


test iorslt 




42ECI 


66D4 






BNE.S 


CALLLDR^ 


if ioresultoO then try iu loader 




42EEI 


6100 


FE8A 




BSR 


STRTOBJ 


start it 




42F2I 


6000 


FF26 




BRA 


CMDLOOP 






423A* 


OOBC 














42F6I 


OCOO 


00 4D 


TRYDBUG 


CMPI.B 


»'M',DO 


Macsbug ? 




42FAI 


66** 






BNE.S 


TRYQ 






42FCI 








DBUGSET 








42FCI 


1B7C 


0001 FFA9 


tt 


MOVE. B 


#1, -87(A5) 






43021 


6100 


FC26 




BSR 


XEQUTE 


get file to debug 




43061 








GETSYSC 


AO 






43061 


206D 


FFFC 


« 


MOVE.L 


-4(A5),A0 
(AO) 






430AI 


4A10 






TST.B 


file name present ? 




430CI 


6700 


FF4A 




BEQ 


TRYXEQT 


yes, try to execute the file 




43101 


41FA 


FEFC 




LEA 


RESTART, AO 


no, then fake red button 




43141 


2F08 






MOVE. L 


AO, -(A7) 
SR, -(A7) 






43161 


40E7 




FAKERED 


MOVE 






43181 


4E4D 






TRAP 


»$D 






42FA* 


IE 














431AI 


OCOO 


003F 


TRYQ 


CMPI.B 


«'?' ,D0 






431EI 


66** 






BNE.S 


ACEFL 






43201 


6100 


F972 




BSR 


GETREGS 






43241 


6100 


F91C 




BSR 


RSTRXCP 






43281 


6100 


F942 




BSR 


INITPRG 






432CI 


6100 


FB14 




BSR 


PR0MPT2 






43301 


6000 


FEF8 




BRA 


CMDL00P2 






431E* 


14 














43341 


OCOO 


0041 


ACEFL 


CMPI.B 


» ' A ' , DO 


A( ssemb le ? 




43381 


66** 






BNE.S 


Si 






433AI 


4267 






MOVE. W 


»0*24, -(A7) 






433CI 


60** 






BRA.S 


SYSPROG 
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4338* 


04 














433E1 


ocoo 


0043 




®1 


CMPI.B 


w'C'.DO 


1 C(ompile ? 


43421 


66** 








BNE. S 


92 




43441 


3F3C 


0018 






MOVE. W 


01*24, -(A7) 




43481 


60** 








BRA. S 


SYSPROG 




4342* 


06 














434AI 


OCOO 


0045 




(92 


CMPI.B 


»'E',DO 


; E(dit ? 


434EI 


66** 








BNE.S 


93 




43501 


3F3C 


0030 






MOVE.W 


»2*24, -(A7) 




PAGE 
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FILE: COMMAND 


.TEXT 






43541 


60** 








BRA.S 


SYSPROG 




434E* 


06 














43561 


OCOO 


0046 




®3 


CMPI.B 


«'F',DO 


; F( lie ? 


435A1 


66** 








BNE.S 


94 




435CI 


3F3C 


0048 






MOVE. M 


#3*24, -(A7) 




43601 


60** 








BRA.S 


SYSPROG 




435A* 


06 














43621 


OCOO 


004C 




@4 


CMPI.B 


»'L',DO 


; L( ink ? 


43661 


66** 








BNE.S 


95 




43681 


3F3C 


0060 






MOVE. W 


«4*24, -(A7) 




436CI 


60** 








BRA.S 


SYSPROG 




4366* 


06 














436EI 


OCOO 


0044 




95 


CMPI.B 


w'D'.DO 


; 0(ebug ? 


43721 


66** 








BNE.S 


96 




43741 


3F3C 


0078 






MOVE. N 


»5*24, -(A7) 




43781 


60** 








BRA.S 


SYSPROG 




4372* 


06 














437AI 


OCOO 


0055 




36 


CMPI.B 


«'U',DO 


; U(csdeditor ? 


437EI 


66** 








BNE.S 


97 




43801 


3F3C 


0090 






MOVE. W 


«6*24, -(A7) 




43841 


60** 








BRA.S 


SYSPROG 




437E* 


06 














43861 


OCOO 


0047 




97 


CMPI.B 


#'G',DO 


; G(enerate Code ? 


438AI 


66** 








BNE.S 


98 




438CI 


3F3C 


00A8 






MOVE. W 


#7*24, -(A7) 




43901 


60** 








BRA.S 


SYSPROG 




438A* 


06 














43921 


OCOO 


0053 




98 


CMPI.B 


«*S',DO 


; S(ysmgr. ? 


43961 


6600 


FE76 






BNE.S 


RESTART 




439AI 


3F3C 


OOCO 






MOVE. M 


»8*24, -(A7) 




439EI 








SYSPROG 


DBUGCLR 






4390* 


OC 














4384* 


18 














4378* 


24 














436C* 


30 














4360* 


3C 














4354* 


48 














4348* 


54 














433C* 


60 














439EI 


422D 


FFA9 




« 


MOVE.B 


#0, -87(A5) 




43A2I 


6100 


FA14 






BSR 


HOMCRSR 




43A6I 


6100 


FA34 






BSR 


CLRSCR 




43AAI 


6100 


FB64 






BSR 


WCRLF 




43AEI 


301F 








MOVE. W 


(A7)+,D0 




43B0I 










GETSTBL 


AO 




43B0I 


206D 


FFB6 




« 


MOVE. L 


-74(A5), AO 
0(AO,DO), AO 




43B4| 


41F0 


0000 






LEA 


; ®f i lename 


43B8I 


2F08 








MOVE. L 


AO, -(A7) 


; save it 


43BAI 
















43BAI 








; first 


try to 


find the system file on #4: 


43BAI 
















43BAI 










GETSTRB 


Al 




43BAI 


226D 


FFAA 




« 


MOVE. L 


-86(A5), Al 




43BEI 


7006 








MOVE. L 


#6, DO 




43C0I 


22D8 






91 


MOVE. L 


(A0)*,(A1)+ 


; copy filename to strbuf 


PAGE 
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.TEXT 






43C2I 


5340 








SUB.W 


«1,D0 




43C4I 


66FA 








BNE.S 


91 




43C6I 










GETSTRB 


AO 




43C6I 


206D 


FFAA 




» 


MOVE. L 


-86(A5), AO 




43CAI 


0C28 


002A 


0001 




CMPI.B 


#42,1(A0) 


; if f i lename[l ]=' *' then 


43D0I 


66** 








BNE.S 


94 




43D2I 


2257 








MOVE. L 


(A7), Al 
(Al +,D0 




43D4| 


1019 








MOVE. B 




43D6I 


1080 








MOVE. B 


DO, ( AO ) 




43D8I 


5418 








ADD.B 


«2, (A0)+ 




43DAI 


lOFC 


0023 






MOVE. B 


#35, (A0)+ 


; insert( ' »4: ', f i lename, 1 ) 


43DEI 


lOFC 


0034 






MOVE.B 


«'4', (AO ) + 




43E2I 


lOFC 


003A 






MOVE. B 


»58, (A0)+ 




43E6I 


4A19 








TST. B 


(Al) + 
(A1)*,(A0) + 


J sk ip over ' *' 


43E8I 


10D9 






93 


MOVE. B 


; and copy filename 


43EAI 


5300 








SUB.B 


«1,D0 




43ECI 


66FA 








BNE.S 


93 




43EEI 


6000 


41 lion >K 






BRA 


FNDSYS2 




43D0* 


20 














43F2I 


0C28 


003A 


0003 


94 


CMPI.B 


»58,3(A0) 


; if f i lename[3 ]=■ : ' then 


43F8I 


66** 








BNE.S 


95 




43FAI 


117C 


0034 


0002 




MOVE. B 


#'4',2(A0) 


; f i lename[2 ]: =' 4' 


44001 


6000 


**»!* 






BRA 


FNDSYS2 




43F8* 


OA 














44041 


0C28 


003A 


0004 


95 


CMPI.B 


»58,4(A0) 


; if f i lename[4 ]=' : ' then 


440AI 


66** 








BNE.S 


FNDSYS3 
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440CI 


117C 


0030 


0002 




MOVE. B 


»'0',2(AO) 
»'4',3(A0) 


; f i lenamer2 ]: =' 0' 


44121 


117C 


0034 


0003 




MOVE. B 


; f i lename '3 : =' 4' 


4402* 


0016 














43F0* 


0028 














44181 


6100 


FCOO 




FN0SYS2 


BSR 


OPNCOOE 


; open object file 


441CI 










GETSYSC 


AO 




441CI 


2060 


FFFC 




« 


MOVE. L 


-4(A5),A0 
(AO) 




44201 


4A10 








TST.B 


; test iorslt, ok ? 


44221 


66** 








BNE.S 


FN0SYS3 




44241 


4A9F 








TST.L 


(A7)* 


; yes discard ©filename 


44261 


6000 


FEBA 






BRA 


FOPENOK 




4422* 


06 














440A* 


IE 














442A1 


2057 






FN0SYS3 


MOVE. L 


(A7),A0 




442CI 
















442CI 








; enter 


here uiith @f i lename in AO 


and a copy on tos 


442CI 
















442CI 








FINOSYS 


GETSTRB 


Al 




442CI 


2260 


FFAA 




« 


MOVE. L 


-86(AS),A1 




44301 


7006 








MOVE. L 


#6, DO 




44321 


22D8 






91 


MOVE. L 


(A0) + ,(A1)* 


; copy filename to strbuf 


44341 


5340 








SUB.W 


#1,00 




44361 


66FA 








BNE.S 


(91 




44381 


6100 


FCBO 






BSR 


OPNCOOE 


; open object file 


443CI 










GETSYSC 


AO 




443CI 


2060 


FFFC 




» 


MOVE. L 


-4(A5),A0 
(AO) 




44401 


4A10 








TST.B 


; test iorslt, ok ? 


44421 


66** 








BNE.S 


(92 




44441 


4A9F 








TST.L 


(A7)* 


; yes discard Sfilename 


PAGE 
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44461 


6000 


FE9A 






BRA 


FOPENOK 




4442* 


06 














444AI 


2057 






(92 


MOVE. L 


(A7),A0 




444CI 


0C28 


002A 


0001 




CMPI.B 


#42,1(A0) 


; if f i lename[l ]=' *' then 


44521 


66** 








BNE.S 


94 




44541 










GETSTRB 


Al 




44541 


2260 


FFAA 




« 


MOVE. L 


-86(A5),A1 




44581 


1019 








MOVE. B 


(A1)+,D0 




445AI 


1080 








MOVE. B 


00, (AO 1 
#2, (AO)* 




445CI 


5418 








AOO.B 




445EI 


lOFC 


0023 






MOVE. B 


#35, (A0)+ 


; insert( ' #4: ' , f i lename, 1 ) 


44621 


lOFC 


0034 






MOVE. B 


#'4' , (A0)+ 




44661 


lOFC 


003A 






MOVE. B 


#58, (AC)* 




446AI 


4A19 








TST.B 


(Al)* 


; sk ip over ' *' 


446CI 


1009 






(S3 


MOVE. B 


(ai)*,(ao)* 


; and copy filename 


446EI 


5300 








SUB.B 


«1,D0 




44701 


66FA 








BNE.S 


®3 




44721 


2057 








MOVE. L 


(A7),A0 




44741 


60B6 








BRA 


FINOSYS 




4452* 


22 














44761 


0C28 


0034 


0002 


®4 


CMPI.B 


«'4',2(A0) 


; if f i lename[2]=' 4' then 


447CI 


66** 








BNE. S 


®5 




447EI 


117C 


0035 


0002 




MOVE.B 


»'5',2(A0) 


; f i lename[2]: ='5' 


44841 


60A6 








BRA 


FINOSYS 




447C* 


08 














44861 


0C28 


0035 


0002 


®5 


CMPI.B 


»'5',2(A0) 


; if f ilename[2]=' 5' then 


448CI 


66** 








BNE.S 


m 




448EI 


117C 


0039 


0002 




MOVE. B 


«'9',2(A0) 


; f i lename[2]: ='9' 


44941 


6096 








BRA 


FINOSYS 




448C* 


08 














44961 


0C28 


0039 


0002 


<li6 


CMPI.B 


«'9',2(A0) 


; if f i lename[2 ]=' 9' then 


449CI 


66** 








BNE.S 


(3)8 




449EI 










GETSTRB 


Al 




449E1 


2260 


FFAA 




« 


MOVE. L 


-86(A5),A1 




44A2I 


137C 


0031 


0002 




MOVE. B 


»'1',2(A1 ) 


; f i lename[2 ]: =' 1' 


44A8I 


1019 








MOVE.B 


(Al )+,D0 




44AAI 


1080 








MOVE. B 


00, (AO) 




44ACI 


5218 








ADD. B 


»1, (A0)+ 




44AEI 


1009 








MOVE. B 


(ai)+,(ao)+ 




44B0I 


1009 








MOVE. B 


(Al )*,(A0)+ 




44B2I 


lOFC 


0030 






MOVE. B 


«'0', (A0) + 


; insert( '0' , fi lename, 3 ) 


44B6I 


1009 






®7 


MOVE. B 


(Al )+, (A0) + 




44B8I 


5300 








SUB.B 


»1,D0 




44BAI 


66FA 








BNE.S 


®7 




44BCI 


2057 








MOVE.L 


(A7),A0 




44BEI 


6000 


FF6C 






BRA 


FINOSYS 




449C* 


24 














44C2I 


0C28 


0030 


0003 


®S 


CMPI.B 


»'0',3(A0) 


; if f i lename[3]='0' then 


44C8I 


66** 








BNE.S 


(99 




44CAI 


117C 


0031 


0003 




MOVE. B 


«'1',3(A0) 


; f i lename[3 ]:='!' 


44D0I 


6000 


FF5A 






BRA 


FINOSYS 




44C8* 


OA 














44D4I 


0C28 


0031 


0003 


®2 


CMPI.B 


»'1',3(A0) 


; if f i lename[3 ]=' 1' then 


44DAI 


66** 








BNE.S 


®10 




44DCI 


117C 


0032 


0003 




MOVE. B 


»'2',3(A0) 


; f i lename[2 ]: =' 2' 


PAGE 
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MONITOR 


FILE: COMMANO 


TEXT 






44E2I 


6000 


FF48 






BRA 


FINOSYS 




44DA* 


OA 














44E6I 


2057 






®10 


MOVE.L 


(A7),A0 




44E8I 


0C28 


003A 


0001 




CMPI.B 


»S8, 1(A0) 


; Luhile f i lename[ 1 ]<> ' : ' do 


44EEI 


67** 








BED. S 


®11 




44F0I 


7201 








MOVE. L 


#1,01 
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44F2| 6100 D906 




BSR 


DELICH 






i delete(ft it le, 1, 1 


) 




' 


44F6I 60EE 






BRA. S 


910 


















44EE* 08 




























44F8I 117C 002A 0001 


®11 


MOVE. B 


»42, 1(A0) 






; filenamefl 


]:=■*• 








44FEI 4A9F 






TST.L 


(A7)* 






; delete 


Sf i 


lename 








45001 487A FDOC 




PEA 


RESTART 


















45041 6000 F7F6 




BRA 


lOCHK 


















45081 






; 






















45081 






; H 


andler for T 


rap «D 


















45081 






; 






















45081 301F 




TRP2MAX MOVE.W 


(A7)*,D0 
(A7)* 






; get SR 












450AI 4A9F 






TST.L 






; delete 


PC 










450CI 0800 OOOD 




BTST 


#13, DO 






; trap from user mode 


■> 






45101 66 


«« 






BNE. S 


GOTOABT 


















45121 5D8F 






SUB.L 


«6,A7 






; make sp 


ace 


to copy 


SR and PC 






45141 4E68 






MOVE 


USP, AO 


















45161 3E98 






MOVE. M 


(A0)*,(A7) 
(A0)+,2(A7 






; copy SR 












45181 2F58 0002 




MOVE. L 


) 




; copy PC 












451CI 4E60 






MOVE 


AO.USP 


















4510* OC 




























451EI 4A38 014C 


GOTOABT TST.B 


$14C 


















45221 67 


** 






BEG. S 


USELVL7 






; if little machine then 






45241 2078 0078 




MOVE.L 


$78, AO 






; goto 


ABORTB in MACSBUG via L 


sve 


1 6 


45281 4ED0 






JMP 


(AO) 






; else 












4522* 06 




























452AI 2078 007C 


USELVL7 MOVE.L 


$7C, AO 






) goto 


ABORTB in MACSBUG via L 


eve 


1 7 


452EI 4ED0 






JMP 


(AO) 


















45301 






; 






















45301 6000 FCOC 




BRA 


RESTART 






; Last instruction of 


mon iter 






45341 






; 






















45341 0000 




THEEND . WORD 





















45361 




























45361 " 




























45361 






; 






















45361 








.END 
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AB - Absolute LB 


- Label 


UD - Undefined MC 


- Macro 














RF - Ref 




DF 


- Def 


PR - Proc 


FC 


- Func 














PB - Public 


PV 


- Private 


CS - Consts 


















AOTOSO 


LB 


OO003A5EI 


ACEFL 


LB 00004334 


ACR 


AB 


00000058 


ACTNTBL 


LB 


00001A46 


ADDR2S0 


LB 


00003A8A 


ADDRDRVR 


LB 


000019EAI 


ADDRFLR 


MC 


ADDRNP 


MC 




ADDRSAB 


MC 





ADDRSAT 


MC 




ADDRTHD 


MC 


— 1 


ALL. 85 


LB 00003668 


ALLBIT 


AB 


OOOOOOOF 


ALPHLCK 


AB 


00000028 


ALTMOD 


AB 


00000024 


APNDOBJ 


LB 


0000410CI 


APNDTXT 


LB 0d00401E 


BADBLCK 


LB 


00003600 


BADCHR 


AB 


00000022 


BLKH 


AB 


FFFFFFFB 


BLKIO 


LB 


00002E10I 


BLKL 


AB FFFFFFFD 


BLKM 


AB 


FFFFFFFC 


BLKRXIT 


LB 


00002F24 


BLKSIZE 


AB 


OOOOOOFF 


BL0CK80 


LB 


000036141 


BL0CK81 


LB 00003698 


BL0CK82 


LB 


00003614 


BL0CK83 


LB 


00003614 


BL0CK84 


LB 


00003614 


BL0CK85 


LB 


000036301 


BL0CK86 


LB 0000367A 


BLOCKH 


AB 


FFFFFFFF 


BLOCKL 


AB 


FFFFFFFE 


BOOTDVC 


AB 


000001B3 


BOTSYSC 


LB 


000000301 


BOTSYSF 


LB 00000208 


BOTUTBL 


LB 


0000012E 


BREAK 


AB 


00000021 


BREINI2 


LB 


OOOOOBAC 


BREINIT 


LB 


OO0O0B62I 


brvOlsx 


LB 00002164 


BSRPUTB 


LB 


00003A00 


BSSPBS 


LB 


00003F26 


BSYBIT 


AB 


00000008 


C. TABLE 


LB 


000036061 


CALLLDR 


LB 000042C2 


CANTSTl 


LB 


00002D5C 


CANTSTR 


LB 


00002C40 


CANTSTX 


LB 


00002D6E 


CCRUNCH 


AB 


000000031 


CDBUSY 


LB 00001720 


CDCLEAR 


LB 


00001726 


CDCPT 


AB 


00000004 


CDERROR 


LB 


00001714 


CDEVVOL 


LB 


0000234CI 


CDOVRUN 


AB 00000001 


CDREAD 


LB 


0000172A 


CDRWXIT 


LB 


000017B0 


CDSKCSZ 


LB 


00000E94 


CDSKINIT 


LB 


OO0O0E6EI 


CDSKRD 


LB 00000F86 


CDSKREAD 


LB 


00000E84 


CDSKWR 


LB 


00001018 


CDSKWRT 


LB 


00000E8C 


CDWRITE 


LB 


000017E8I 


CHECKCD 


LB 0000169C 


CHKBLK7 


LB 


OOOOOAFA 


CHKDEV 


LB 


00002168 


CHKERR 


LB 


000008D8 


CHKMTBL 


LB 


00000B64I 


CHRDEL 


AB 00000023 


CJMPTBL 


LB 


00000E5E 


CLOCK 


AB 


00000001 


CLRBIT 


AB 


00000004 


CLRLINE 


AB 


000000131 


CLRLN 


LB 00003DC4 


CLRLN2 


LB 


00003DD4 


CLRSCR 


LB 


00003DDC 


CLRSCR2 


LB 


00003DEC 


CLRSCRN 


AB 


000000121 


CMDLOOP 


LB 0000421A 


CMDL00P2 


LB 


0000422A 


CMDSIZE 


AB 


00000004 


CMPSFX 


LB 


00001E14 


CMPSFXX 


LB 


00001E20I 


CNORMAL 


AB 00000000 


CODEFILE 


AB 


00000002 


CONSOLE 


AB 


00000001 


C0PY6 


LB 


00001178 


C0PY6LP 


LB 


000011861 


CPURGE 


AB 00000002 


CPYDEVE 


LB 


OOOOOBDO 


CPYDEVN 


LB 


OOOOOBCA 


CPYLOOP 


LB 


0000061A 


CRLF 


LB 


00003F0EI 


CRTESC 


AB OOOOOOOA 


CRTINFO 


AB 


00000016 


CRTTYP 


AB 


00000008 


CSLASH 


LB 


000020EE 


CSZEXIT 


LB 


00000E7EI 


DACCESS 


AB 00000018 


DATAFILE 


AB 


00000005 


DBUGCLR 


MC 




DBUGSET 


MC 





DBUGTST 


MC 


— 1 


DDRA 


AB 00000018 


DDRB 


AB 


00000010 


DECDTOW 


MC 





DECRTOW 


LB 


00000998 


DELICH 


LB 


OOOOlDFAl 


DELDEV 


LB 00002182 


DELENG 


AB 


OOOOOOIA 


DELNTRY 


LB 


000025C0 


DEOVBLK 


AB 


OOOOOOOE 


DEVBASE 


AB 


OOOOOOlOl 


DEVGLBS 


AB OOOOOOIC 


DEVJMPT 


LB 


00000558 


DEVJTBL 


AB 


00000018 


DEVLOOP 


LB 


0000054E 


DEVMTBL 


AB 


000000141 


DEVNAME 


AB 00000000 


DEVNSHF 


AB 


00000005 


DEVNUMO 


LB 


00000578 


DEVNUMl 


LB 


00000588 


DEVNUM2 


LB 


000005981 


DEVNUM3 


LB 000005A2 


DEVNUM4 


LB 


000005B2 


DEVNUM5 


LB 


000005CC 


DEVNUM6 


LB 


00000SE6 


DEVNUM7 


LB 


000006001 


DEVNUMB 


LB 0000219E 


DIRDISK 


AB 


00000002 


DIRSRCH 


LB 


000023B6 


DIRSRCX 


LB 


00002422 


DIRSRLP 


LB 


000023D2I 


DIRSZ 


AB 00000800 


DISKERR 


LB 


00000E34 


DISKIO 


LB 


OOOOOEBE 


DISKIOX 


LB 


00000F7E 


DLASTBT 


AB 


000000141 


DLOADTM 


AB 00000012 


DNTRYSZ 


AB 


00000020 


DNUMFLS 


AB 


00000010 


DOCOPY 


LB 


00000618 


DOSFX 


LB 


00001D34I 


DOSUFIX 


LB OOOOIDIE 


DRVR 


LB 


0000193C 


DRVRTBL 


LB 


00001838 


DSKBLK 


AB 


00000200 


DSKERR 


LB 


000012C6I 


DSKRDl 


LB OOOOOFBC 


DSKRD2 


LB 


OOOOOFCC 


DSKRD3 


LB 


OOOOOFDO 


DSKRD4 


LB 


OOOOOFEO 


DSKRD5 


LB 


OO000FF6I 


DSKRD6 


LB 00001000 


DSKREAD 


LB 


00000E28 


DSKWRT 


LB 


0O00OE40 


DSKWRT2 


LB 


0000104E 


DSKWRT3 


LB 


0000105CI 


DSKWRT4 


LB 0000106C 


DSKWRT5 


LB 


00001086 


DSKWRT6 


LB 


0000108A 


DSKWRT7 


LB 


0000109A 


DTBLSIZ 


AB 


OOOOOlOOl 


DTID 


AB 00000006 


DTRQST 


AB 


00000007 


DVID 


AB 


00000006 


ENDMH85 


LB 


00003676 


ENTRTMP 


LB 


000026161 


EOF 


AB OOOOOOIF 


ERROR 


LB 


000037FC 


ETX 


AB 


00000026 


EXECDRVR 


LB 


00001666 


FAIRTTL 


LB 


00001BC8I 


FAKERED 


LB 00004316 


FBFCHNG 


AB 


0000003E 


FBLKSIZ 


AB 


00000200 


FBUFFER 


AB 


ooooooso 


FCLOSE 


LB 


00002A08I 


FCLOSEl 


LB 00002C22 


FCLOSEX 


LB 


00002C32 


FDEVVID 


AB 


00000040 


FEOF 


AB 


00000005 


FEOLN 


AB 


000000041 


FGET 


LB 0000304E 


FGETIL 


LB 


00003272 


FGET2L 


LB 


000032821 


FGET2ND 


LB 


00003126 


FGET3RD 


LB 


000031D4I 


FGETNOP 


LB 0000326A 


FHEADER 


AB 


OOOOOOIE 


FIBSIZE 


AB 


000002501 


FIBSZ 


AB 


00000050 


FILISTR 


LB 


000003ECI 


FIL2STR 


LB 000003F6 


FILCNT 


AB 


00000011 


FILLBUF 


LB 


000037181 


FINDBP 


LB 


00003900 


FINDD2 


LB 


0000112AI 


FINDLP 


LB 00003A70 


FINDMAX 


LB 


000025F6 


FINDSYS 


LB 


0000442C 


FINISH 


LB 


000012CE 


FINIT 


LB 


OOOOIBOCI 


FINITX 


LB 00001B5C 


FISBLKD 


AB 


OOOOOOOB 


FISOPEN 


AB 


OOOOOOOA 


FIXFVID 


LB 


0000232E 


FKIND 


AB 


000000041 


FLUSH 


AB OOOOOOIE 


FMACHIN 


AB 


OOOOOOOE 


FMAXBLK 


AB 


000000161 


FMAXBYT 


AB 


0000003A 


FMODIFD 


AB 


OOOOOOlCl 


FNDSEGN 


LB 0000390C 


FNDSEGO 


LB 


00003914 


FNDSYS2 


LB 


000044181 


FNDSYS3 


LB 


0000442A 


FNXTBLK 


AB 


000000181 


FNXTBYT 


AB 0000003C 


FOPEN 


LB 


0000275A 


FOPENl 


LB 


000029E0 


F0PEN2 


LB 


00002952 


FOPENOK 


LB 


000042E2I 


FOPENX 


LB 000029F8 


FOTOFILE 


AB 


00000007 


FPUT 


LB 


0000328A( 


FPUTIL 


LB 


000033F6 


FPUT2L 


LB 


000034061 


FPUTNOP 


LB 000033EE 


FREADCHR 


LB 


00002F88 


FREADLN 


LB 


00002FBEI 


FRECSZ 


AB 


00000008 


FREEBYT 


AB 


000000081 


FREEPROC 


LB 00001E64 


FREPCNT 


AB 


OOOOOOIA 


PRESET 


LB 


0000242CI 


FRESETX 


LB 


00002464 


FROMEXEC 


LB 


00003F94I 


FSEEK 


LB 00003422 


FSEEKl 


LB 


00003532 


FSOFTBF 


AB 


000000381 


FSTATE 


AB 


00000006 


FSTBLK 


AB 


OOOOOOOOl 


FTBLSZ 


AB 000000D8 


FTCHDIR 


LB 


00001EA2 


FTCHDRX 


LB 


000020A6I 


FUNIT 


AB 


OOOOOOOC 
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FWINDOW 


AB 


OOOOOOOOl 


FWRITELN 


LB 


00002F6EI 


FWRTCHAR 


LB 


00002F2E 


FWRTCHX 


LB 


00002F68 


GET 


LB 


0000185C 


GETACCA 


MC 


1 


GETBASE 


LB 


000009721 


GETCFIB 


MC 




GETCHAR 


LB 


00003ED0 


GETCHRX 


LB 


00003F0C 


GETDKV 


MC 


1 


GETDREG 


MC 


1 


GETDTBL 


MC 





GETEBST 


MC 





GETEMTH 


MC 




GETERRP 


MC 


1 


GETIBF 


MC 


1 


GETIFIB 


MC 




GETINDX 


LB 


00000834 


GETINFO 


LB 


000016B0 


GETJTBL 


LB 


00000E02I 


GETLOGN 


MC 


-- 1 


GETMTBL 


LB 


00000956 


GETNP 


MC 




GETNXCH 


MC 




GETOFIB 


MC 


1 


GETPRBA 


MC 


--- 1 


GETPRNT 


MC 




GETRDIR 


LB 


00000CD2 


GETREGS 


LB 


00003C94 


GETRSLT 


LB 


000018781 


GETSFIB 


MC 


- 1 


GETSPTR 


MC 





GETSTAT 


LB 


000011B8 


GETSTBL 


MC 




GETSTRB 


MC 


-..-, 


GETSYSC 


MC 


1 


GETSYV 


MC 





GETTFIB 


MC 





GETUFIB 


MC 




GETUFST 


MC 


1 


GETUJPT 


MC 


1 


GETUNIT 


LB 


0000195C 


GETUREG 


MC 





GETUT17 


MC 




GETUTBL 


MC 


1 


GETXFIB 


MC 


1 


GETZFST 


MC 





G02USER 


LB 


000036EE 


GOODPC 


LB 


000038DC 


GOTOABT 


LB 


0000451EI 


GRAFF I LE 


AB 


000000061 


HANDLER 


LB 


00000826 


HDRLOOP 


LB 


00001338 


HDRSIZE 


AB 


00000009 


HDSKCSZ 


LB 


00000E4EI 


HDSKINIT 


LB 


00000E18I 


HITIME 


AB 


00000002 


HLPL 


LB 


000008A4 


HOMCRSR 


LB 


00003DB8 


HPL 


LB 


000008A6I 


IBADBLK 


AB 


OOOOOOOlj 


IBADFMT 


AB 


OOOOOOOE 


IBADMOD 


AB 


00000003 


IBADTTL 


AB 


00000007 


IBADUNT 


AB 


000000021 


IDFIELD 


AB 


OOOOOOABi 


IDUPFIL 


AB 


OOOOOOOB 


lER 


AB 


00000070 


IFR 


AB 


00000068 


ILPL 


LB 


00003CD4I 


ILSTFIL 


AB 


000000061 


ILSTUNT 


AB 


00000005 


IMTBUSY 


AB 


00000005 


INBIT 


AB 


00000001 


INBUFSZ 


AB 


000008001 


INCSR 


AB 


00000004) 


INDATA 


AB 


00000000 


INDXERO 


LB 


000008B2 


INDXERR 


LB 


000008B4 


INFOFILE 


AB 


000000041 


INITDEV 


LB 


0000052EI 


INITFLS 


LB 


00000400 


INITIAL 


LB 


0000020A 


INITMI 


LB 


00000476 


INITMIL 


LB 


00000 4D0| 


INITMIX 


LB 


000004D6I 


INITPRG 


LB 


00003C6C 


INITSYS 


LB 


0000023C 


INITSYSF 


LB 


0000036E 


INITUTBL 


LB 


0000035CI 


INITXIT 


LB 


00000E7CI 


INOERR 


AB 


00000000 


INOFILE 


AB 


OOOOOOOA 


INOROOM 


AB 


00000008 


INOTCLS 


AB 


OOOOOOOCi 


INOTOPN 


AB 


OOOOOOOOl 


INOUNIT 


AB 


00000009 


INSNTRY 


LB 


0000256C 


INSSTAR 


LB 


0000412C 


IMTRLV 


LB 


OOOOIIOCI 


lOCHK 


LB 


00003CFCI 


lOCHKX 


LB 


00003D62 


lOCMD 


AB 


FFFFFFFC 


lODRV 


AB 


FFFFFFFD 


lOEXIT 


LB 


000019D0I 


lORSLT 


AB 


OOOOOOOOl 


IPL 


LB 


00003CD6 


IRA 


AB 


00000008 


IRB 


AB 


00000000 


I STROVF 


AB 


OOOOOOOFi 


IT. FITS 


LB 


000035B4I 


ITIMOUT 


AB 


00000004 


JMPTBL 


LB 


0000076E 


L0.85 


LB 


00003654 


LI. 85 


LB 


000036701 


LASTSEG 


LB 


000035841 


LAUNCH 


LB 


00003B10 


LDPARMS 


LB 


0000340A 


LDSKRD 


LB 


00001224 


LDSKWR 


LB 


0000137EI 


LELPL 


LB 


000037ECI 


LEPL 


LB 


000037EE 


LINDEL 


AB 


00000025 


LNFVIDO 


LB 


00002282 


LOADOBJ 


LB 


0000414CI 


LOGENSZ 


AB 


000000041 


LOGNSZ 


AB 


00000020 


LOOPEND 


LB 


OOOOOBBO 


LOOPIO 


LB 


00002D7C 


LOOPTBL 


LB 


00000B7Cr 


LOOPVOL 


LB 


OOOOOBlCl 


LOT I ME 


AB 


00000004 


LPL 


LB 


00003E5C 


LPL2 


LB 


00003DF4 


LSLASH 


LB 


000020DCI 


LSTBLK 


AB 


000000021 


LSTBYTE 


AB 


00000016 


MAINLOOP 


LB 


000035DC 


MAXDEV 


AB 


00000007 


MAXDIR 


AB 


0000004DI 


MAXDIRB 


AB 


000003121 


MAXINDX 


AB 


000000B8 


MAXU 


AB 


00000014 


MDSKCSZ 


LB 


00001448 


MDSKINIT 


LB 


000014261 


MDSKRD 


LB 


000014521 


MDSKREAD 


LB 


00001438 


MDSKRES 


LB 


0000140A 


MDSKWR 


LB 


0000155C 


MDSKWRT 


LB 


000014401 


MEMA 


LB 


00001A26I 


MEMREAD 


LB 


000017B4 


MEMWRITE 


LB 


000017E2 


MGOTOXY 


LB 


000008F8 


MHALT 


LB 


000008501 


MIOERR 


LB 


000008F4I 


MISCBUF 


AB 


00000250 


MISCFIB 


AB 


00000050 


MJMPTBL 


LB 


000013FA 


m'Mrk 


LB 


doooiAiei 


MNEM 


LB 


00001A02I 


MONBASE 


LB 


00000000 


MONITOR 


PR 





MOVEOP 


LB 


0000034A 


MOVEMEM 


LB 


000017B8I 


MOVFAST 


LB 


000017CCI 


MOVSLOW 


LB 


0000 17BE 


MRKRES 


AB 


00FC7001 


MRLS 


LB 


OOOOIAIE 


MSCNFO 


AB 


000000061 


MtBLSIZ 


AB 


000000541 


MTBLSZ5 


AB 


0000024C 


MVMTABL 


LB 


00000C8E 


NDSKRD 


LB 


00001222 


ndskread 


LB 


000010F2I 


NOSKWR 


LB 


0000137CI 


NDSKWRT 


LB 


OOOOIOFA 


NEWTMPl 


LB 


0000098E 


NEXT. 1 


LB 


00003766 


NEXT. 3 


LB 


000037761 


NEXT. 4 


LB 


000037881 


NEXTBUF 


LB 


0000375A 


NEXTSEG 


LB 


00003A62 


NHS 


AB 


00000078 


NIL 


AB 


OOOOOOOOl 


NJMPTBL 


LB 


OOOOlOBEi 


N0APPL2 


LB 


0000 186C 


NOAPPLE 


LB 


00001866 


NOCARD 


LB 


00000CC8 


NOLOADR 


LB 


000042DEI 


N0T44 


LB 


00003A08I 


NOT60HZ 


LB 


000009A6 


NOTDISK 


LB 


00001706 


NOTOKLH 


LB 


000022BE 


NOTSTAR 


LB 


OOOOlBEEl 


NOTWGDR 


LB 


0000039AI 


OFSMISC 


LB 


OOOOOOOA 


OK. 1 


LB 


0000376C 


OPNCODE 


LB 


000040EA 


OPNEXEC 


LB 


00003FFCI 


ORA 


AB 


000000081 


ORB 


AB 


00000000 


OUTBIT 


AB 


00000002 


OUTCSR 


AB 


00000006 


OUTDATA 


AB 


000000021 


OVFCHK 


LB 


000008821 


OVFCHKX 


LB 


0000089E 


P. LOOP 


LB 


000036AA 


PATCHBP 


LB 


000036D4 


PATCH IT 


LB 


0000369CI 


PCMND 


AB 


FFFFFFFAl 


PCMNDSZ 


AB 


00000005 


PCR 


AB 


00000060 


PDSKCSZ 


LB 


00001102 


PDSKINIT 


LB 


OOOOlOCEi 


PDSKRD 


LB 


0000121CI 


PDSKREAD 


LB 


000010E2 


PDSKWR 


LB 


00001376 


PDSKWRT 


LB 


OOOOIOEA 


PJMPTBL 


LB 


OOOOlOAEi 


PL 


LB 


b0003E5E| 


PL2 


LB 


00003DF6 


PMADDR2S 


LB 


00003ACC 


POKEXCP 


LB 


00003BDC 


PREFIX 


AB 


000000271 


PRINT 


LB 


00003EBEI 


PRNTERR 


LB 


00003D26 


PROMPT 


LB 


00003EAE 


PR0MPT2 


LB 


00003E42 


PRTBUSY 


LB 


00001A4EI 


PRTCLR 


LB 


00001A54I 


PRTDRVR 


LB 


00001A3E 


PRTEXIT 


LB 


00001AE2 


PRTINIT 


LB 


00000E9C 


PRTREAD 


LB 


OOOOlASOl 


PRTSEND 


LB 


00001AE6I 


PRTSETUP 


LB 


00001A6A 


PRTWRT 


LB 


00001A84 


PUT 


LB 


0000184C 


PUTACCA 


MC 


"--1 


PUTBACK 


LB 


00b03A16| 


PUTBAK2 


LB 


00003A3A 


PUTBAK3 


LB 


00003A58 


PUTCFIB 


MC 




PUTDKV 


MC 


1 


PUTDREG 


MC 


1 


PUTDTBL 


MC 




PUTDTOW 


MC 





PUTEBST 


MC 




PUTEMTH 


MC 


---1 


PUTERRP 


MC 


1 


PUTIBF 


MC 




PUTIFIB 


MC 





PUTLOGN 


MC 




PUTNP 


MC 


~--| 


PUTNXCH 


MC 


1 


PUTOFIB 


MC 




PUTPRBA 


MC 





PUTPRFl 


LB 


00003DA4 


PUTPRF2 


LB 


00003»B6| 


PUTPRFX 


LB 


000030821 


PUTPRNT 


MC 





PUTSFIB 


MC 




PUTSPTR 


MC 




PUTSTBL 


MC 


~--| 


PUTSTRB 


MC 


1 


PUTSYSC 


MC 




PUTSYV 


MC 




PUTTFIB 


MC 




PUTUFIB 


MC 


1 


PUTUFST 


MC 


1 


PUTUJPT 


MC 


- -- 


PUTUREG 


MC 





PUTUT17 


MC 
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PUTUTBL 


MC 


"--1 


PUTXFIB 


MC 


1 


PUTZFST 


MC 





P BCKSP 


AB 


00000005 


P CLRLN 


AB 


00000007 


P CLRSC 


AB 


000000061 


P ERSEL 


AB 


000000021 


P ERSES 


AB 


00000003 


P HOME 


AB 


00000004 


P NDFS 


AB 


00000001 


P~RLF 


AB 


OOOOOOOOl 


QUITDSK 


LB 


000009AAI 


RCERR 


LB 


00000856 


RDDATA 


LB 


000018E2 


RDMTABL 


LB 


000009FE 


RDMTINIT 


LB 


00000A6EI 


RDMTLP 


LB 


OO000A74I 


RDNRES 


LB 


0000126E 


READ. OK 


LB 


00003758 


READHDR 


LB 


0000128C 


READLP 


LB 


000012A4I 


REGO 


AB 


OOOOOOOOl 


REGl 


AB 


00000008 


REG2 


AB 


00000010 


REG3 


AB 


00000018 


REG4 


AB 


000000201 


REGS 


AB 


000000281 


REG6 


AB 


00000030 


REG7 


AB 


00000038 


REG8 


AB 


00000040 


REGS 


AB 


000000481 


REGA 


AB 


000000501 


REGB 


AB 


00000058 


REGC 


AB 


00000060 


REGD 


AB 


00000068 


REGE 


AB 


000000701 


REGF 


AB 


000000781 


REINIT 


LB 


00000C5E 


REINITJ 


LB 


00000C72 


REMAP 


LB 


OOOOlllC 


REMOVE 1 


LB 


0000379AI 


RESETER 


LB 


0000246CI 


RESETRX 


LB 


000025641 


RESTART 


LB 


0000420E 


RETRY 


AB 


FFFFFFFE 


REVISION 


LB 


00003E54I 


RLPL 


LB 


0000416CI 


RNNGUSR 


LB 


00003958 


RPL 


LB 


0000416E 


RSKPHDR 


LB 


0000129C 


RSTRXCP 


LB 


00003C42I 


RTll 


AB 


OOOOOOlCj 


RUNUCLR 


MC 




RUNUSET 


MC 





RUNUTST 


MC 




SAMESEG 


LB 


000036E0I 


SCANAHD 


LB 


00002FE8I 


SCANTTL 


LB 


00001B5E 


SCANTTLX 


LB 


OOOOIDCC 


SCERR 


LB 


0000086C 


SCNSTRC 


LB 


00001B981 


SECURDIR 


AB 


000000081 


SENDCMD 


LB 


000018801 


SENDHDR 


LB 


00001888 


SETA1A2 


LB 


000025AE 


SETDISK 


LB 


OOOOODFOl 


SETHDSK 


LB 


00000DB4I 


SETTWGY 


LB 


00000BE6 


SETUPA5 


LB 


00003C8C 


SFXBACK 


LB 


00001DE2 


SFXCODE 


LB 


OOOOlDDCl 


SFXFOTO 


LB 


00001DF4I 


SFXGRAF 


LB 


OOOOIDEE) 


SFXINFO 


LB 


00001DE8 


SFXTEXT 


LB 


00001DD6 


SMSCNFO 


LB 


000004681 


SNDRl 


LB 


00001146! 


SOFTBO 


LB 


000038A2 


SOFTBPT 


LB 


0000389E 


SOFTXIT 


LB 


0000391E 


SSTOP 


AB 


000000201 


STARTUP 


LB 


0000069EI 


STATOl 


LB 


00001166 


STATJMP 


LB 


00000DD8 


STILLIN 


LB 


000037CC 


STRTOBJ 


LB 


0000417AI 


STRTRD 


LB 


000011D2I 


STRTWRT 


LB 


000012D8 


SWAPJT 


LB 


00003C56 


SYSCMSZ 


AB 


0000002C 


SYSPROG 


LB 


0000439EI 


SYSTERM 


AB 


00000002) 


SYSUNT 


AB 


00000001 


TEXTFILE 


AB 


00000003 


THEEND 


LB 


00004534 


THRESH 


AB 


FFFFFFFFj 


TLPL 


LB 


00003CE0I 


TOP. 86 


LB 


00003686) 


TOPSYSC 


LB 


00000004 


TOPSYSF 


LB 


00000130 


TOPUTBL 


LB 


000000321 


TPL 


LB 


00003CE2I 


TRAPTO 


MC 


1 


TRP2MAX 


LB 


00004508) 


TRYCRV 


LB 


OOOOODEC 


TRYDBUG 


LB 


000042F6I 


TRYEXEC 


LB 


000040421 


TRYMRK 


LB 


OOOOODEO 


TRYNEXT 


LB 


00003572 


TRYNJMP 


LB 


00000C52 


TRYPIP 


LB 


00000DE6I 


TRYQ 


LB 


0000431AI 


TRYXEQT 


LB 


00004258 


TSTFVID 


LB 


00001C52 


TSTSTAT 


LB 


OOOOODCC 


TTLCOPY 


LB 


00001E24I 


UBUSY 


LB 


000019D8I 


UCLR 


LB 


000019B4 


UEQVBLK 


AB 


OOOOOOOA 


UIO 


LB 


000019C2 


UISBLKD 


AB 


000000091 


UJMPTBL 


AB 


00001800) 


UJMPTOP 


AB 


00003000 


UN. LOOP 


LB 


000037D8 


UNITBL 


LB 


000006F0 


UNITBSY 


LB 


000018B2I 


UNITCLR 


LB 


000018CE) 


UNITDEV 


LB 


0000167A 


UNITISB 


LB 


00001E66 


UNTYPFL 


AB 


00000000 


UPSHFT 


LB 


00003D66I 


UPSHFTX 


LB 


00003D76) 


UREAO 


LB 


000019C0) 


USELVL7 


LB 


0000452A 


UT17IDX 


LB 


00001E8C 


UT17SIZ 


AB 


000004981 


UT17TSZ 


AB 


000000A8t 


UT17VID 


AB 


00000000 


UT17VSZ 


AB 


00000008 


UTABLSZ 


AB 


OOOOOOFC 


UTBLSIZ 


AB 


OOOOOOOCi 


UVID 


AB 


OOOOOOOOl 


U WRITE 


LB 


000019BC 


VIO 


LB 


0000388C 


Vll 


LB 


00003892 


V2 


LB 


0000385CI 


V24 


LB 


00003898) 


V3 


LB 


00003862 


V31 


LB 


00003822 


V31A 


LB 


0000381E 


V31X 


LB 


0000382EI 


V4 


LB 


000038681 


V5 


LB 


0000386EI 


V6 


LB 


00003874 


V7 


LB 


0000387A 


V8 


LB 


000038801 


V9 


LB 


000038861 


VALIDB7 


LB 


00000BB8 


VOLSRCH 


LB 


000020AE 


VOLSRCX 


LB 


000023A2 


VOLSRXT 


LB 


000023ACI 


WILPL 


LB 


0000064CI 


WIPL 


LB 


0000064E 


W2LPL 


LB 


00000656 


W2PL 


LB 


00000658 


WAIT 


LB 


00003D78I 


WCRLF 


LB 


00003F10I 


WELC0M2 


LB 


000006BA 


WELCOME 


LB 


000006AA 


WFBl 


LB 


00001132 


WFNBl 


LB 


000011561 


WHILE85 


LB 


00003640) 


WRDATA 


LB 


0000190A 


WRITEIT 


LB 


0000272C 


WRTDIR 


LB 


0000273A 


WRTLOOP 


LB 


000013541 


WRTNRES 


LB 


000013ECI 


WRTPRT 


LB 


0000171A 


WSKPHDR 


LB 


0000134C 


XDSKFILE 


AB 


00000001 


XEQUTE 


LB 


00003F2AI 


XEQUTEO 


LB 


00003F30) 


XEQUTEl 


LB 


00003F4C 


XEQUTE2 


LB 


00003F86I 


XEQUTE3 


LB 


00003F92 


XEQUTE4 


LB 


00003F72I 


XITNTRY 


LB 


000025A4I 


XLPL 


LB 


00003F18 


XPBUSY 


AB 


000000031 


XPCPT 


AB 


00000002 
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XPL LB 00003F1AI 
Y. LOOP LB 00001E4AI 
ZZUNLOAD LB 00003794| 
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XPOVRUN 
Y. TEST 



AB OOOOOOOOl 
LB 00001E4CI 



XSTRTUP 

ZEROMEM 



LB 000006681 
LB 000004DAI 



Y. ERROR 
ZZIORES 



LB 00001E60I 
LB 000019F4I 



Y. LEAVE LB OOOOIESO 
ZZLOADIT LB 0000353 A 



FILE: MONITOR. TEXT 



03E6* 


0282 


03EA* 


02C0 


021A* 


04D6 


0320* 


0506 


0338* 


05A0 


03D4* 


062A 


03C8* 


0636 


03BC* 


0542 


03B0* 


0B4E 


03A4* 


065A 


0398* 


0666 


038C* 


0672 


09FC* 


0276 


03DA* 


08F8 


0818* 


059C 


0A7C* 


0386 


0B02* 


0316 


080C* 


060C 


0AC6* 


0362 


0810* 


0618 


0814* 


06 2C 


OBOE* 


0340 


081C* 


0632 


0A56* 


0418 


ODES* 


02C6 


0C6A* 


0444 


09D0* 


06DE 


0C54* 


046A 


09DC* 


06E2 


0DE2* 


0618 


0A86* 


0974 


0A5E* 


09AC 


07A4* 


1210 


0950* 


106C 


07AC* 


1210 


07A8* 


1218 


07B0* 


1228 


0808* 


11E2 


07B4* 


1240 


0794* 


126E 


0798* 


127E 


079C* 


1282 


07A0* 


1286 


0318* 


1726 


0788* 


1384 


0486* 


1686 


0452* 


16BA 


0430* 


16DC 


040E* 


16FE 


07E4* 


137A 


07E8* 


167C 


0B7E* 


12E8 


0CE8* 


IIBA 


07EC* 


18C2 


07F0* 


1BC6 
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07F4* 


1C38 


07F8* 


1074 


2050* 


0570 


07FC* 


1DC4 


207C* 


06BE 


078C* 


IFCE 


0498* 


22C2 


0464* 


22F6 


0442* 


2318 


0420* 


233A 


07BC* 


22 4C 


0790* 


2680 


04B8* 


2958 


0778* 


27B6 


077C* 


27F2 


0780* 


2808 


0784* 


283A 


245A* 


0BF4 


07D8* 


2876 


2F80* 


030A 


2F4C* 


033E 


07DC* 


2AAE 


3104* 


0306 


30EE* 


031C 


07E0* 


2C42 


0770* 


2DCA 


0774* 


3020 


07B8* 


2FE2 


0330* 


356E 


08EC* 


2FB6 


087A* 


3028 


0864* 


303E 
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0800* 328A 
0804* 32C8 
07D4* 333C 
399A* 02A8 
39CE* 0288 
399E* 02B8 
068E* 35DE 
39B6* 02D6 
3962* 032A 
38AE* 03DE 
37A0* 04EC 
371E* 056E 
36F4* 0598 
3544* 0748 
08DC* 33B0 
0844* 3448 
0226* 3A66 
06AC* 35E8 
068A* 360A 
08F6* 3406 
381C* 050A 
08D6* 3450 
IBBE* 21A8 
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MONITOR FILE: MONITOR. TEXT 



06B0* 
0692* 
06B4* 
0696* 
0824* 
380C* 
08C2* 
■06E6* 
06DA* 
06CE* 
06EA* 
06BC* 
1670* 
0680* 
3D60* 
06EE* 
069A* 
3710* 
0328* 
0220* 



3708 
3726 
3728 
3746 
3630 
06B2 
35FC 
37D8 
37E4 
37F0 
3826 
3854 
2924 
39C2 
04AE 
382C 
3880 
0C06 
41E0 
4314 



8345 lines 



Pass 1 complete: 
Mannings 
Errors 
ASSEMBLY COMPLETE. 

ETTlMONll. TEXTDRIVE2/rPRTPR: MONll. TEXTZ", "■Ox®", ""oX/ "01", 10 ", hdLISA: MPPSW. FLISA: MPFPW. FLISA: MFRW. FLISA: MFIW. F"iHOx(lTPR- 
ONll.TEXTZ","lOx®",""lX/ "01", 10 ", hdLISA: MPPSW. FLISA: MPFPW. FLISA: MFRW. FLISA: MFIW. F 



